1)

program fantscrin;

 var  a, b, s:integer;

begin

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

 write('a = '); readln(a);

 write('b = '); readln(b);

 s:=a*b;

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

end.

2)

program fantscrin;

 var  y, x:real;

begin

 write('x = '); readln(x);

 if x>=3 then y:= sqrt(x)

         else y:= x;

 writeln('y = ',y);

end.