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

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

Ну, например. вот так.Program Pifagor;var a,b:integer;Beginwriteln('Введите значение первого катета:');readln(a);writeln('Введите значение второго катета:');readln(b);writeln('C^2=a^2+b^2. C^2=', a*a+b*b);End.