найти периметр треугольного прямоугольника если известны все его стороны решение задач на языке программирование паскаль

var a,b,c:real;

begin

writeln('Введите все стороны: ');

readln(a);

readln(b);

readln(c);

write('Периметр треугольника:   ');

writeln(a+b+c );

end.

var a,b,c,P:integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

writeln('Введите значение c: ');

readln(c);

P:=a+b+c;

writeln('P = ',P);

end.