Я на информатике хелп

[Любитель жёсткой порки]

Я на информатике помогите
1.bar
a: real
c: real
begin
write ('Введите катеты прямоугольного треугольника')
readln (a,b)
c = sqrt (a*a+b*b)
writeln(Гипотенуза = , c )
end