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.