Составить программу вычисления периметра прямоугольного треугольника если…

program mcfdncfio; uses crt; var a,b,c,p: integer; begina: =5; b: =3; c: =sqrt (sqr (a)+sqr (b); p: =a+b+c; writeln (p); readln; end. Если не работает, то для c отдельно напиши c: real;