Question

Программирования помагите пожалуйста 20 баллов

Answer 1

1)

var a,b:integer;

begin

writeln('введите стороны прямоугольника:');

write('первая сторона равна:');readln(a);

write('вторая сторона равна:');readln(b);

write('площадь прямоугольника со сторонами ',a,' и ',b,' равна ',a*b);

end.

2)

Var x: integer;

Begin

write('введите число х=');

readln(x);

If x>=2 Then write('y=',sqrt(x))

Else write('y=',x);

End.