Нужно написать программу для нахождения теоремы пифагора

Пифагоровы штаны во все стороны равны

Ну, например. вот так.
Program Pifagor;
var a,b:integer;
Begin

writeln('Введите значение первого катета:');
readln(a);
writeln('Введите значение второго катета:');
readln(b);

writeln('C^2=a^2+b^2. C^2=', a*a+b*b);
End.