Смотря в какой программе работаешь.
Если не ошибаюсь, в паскале readln начинает выполнение действия с новой строки, в то время как read продолжает на старой строке. Но могу и ошибаться
program prTreug;
var a,b,y, P: real;
begin
writeln ('введите катеты прямоугольного треугольника');
read (a,b);
if (a<=0) or (b<=0) then
writeln ('такого треугольника нет')
else
begin
y:=sqrt(sqr(a)+sqr(b));
P:= a+b+y;
writeln ('гипотенуза = ',y:6:2);
writeln ('периметр = ',P:6:2);
end;
end.
Ёёё в инете есть это же я видела
1.2^2=4
1.4^2=16
2.16-4=12
2.12-4=8
1.8^2=64
Ответ:11221