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.
