Question

НУЖЕН ОТВЕТ! ДАЮ 100БАЛЛОВ

Answer 1

**Task 4:**

```pascal

var

x: Integer;

begin

writeln('Enter a number:');

readln(x);

writeln('The square of the number is: ', sqr(x));

end.

```

**Task 5:**

```pascal

var

x: Real;

begin

writeln('Enter a number:');

readln(x);

writeln('The square root of the number is: ', sqrt(x));

end.

```