Program 1;
Var a,b,c: real;
Begin
writeln('введите 1 катет= ');
readln(a);
writeln('введите 2 катет= ');
readln(b);
c:=SQRT(a*a+b*b);
writeln('гипотенуза= ,c');
End.
Вот например эта запись. Вроде все правилно. Когда ввожу катеты гипотенузу не считает. Что не так?