Вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (А>0, B>0, C>0), вводимых с клавиатуры

program zz1;

var a, b, r, c:real; / /задаем переменные не целого типа

i:integer;

begin

for i:=1 to 25 do

begin

write ('введите первую сторону '); / /вводим с клавиатуры первое число

read (a);

write ('введите вторую сторону '); / /вводим с клавиатуры второе число

read (b);

write ('введите третью сторону '); / /вводим с клавиатуры третье число

read (b);

r:=a + b + c; / / вычисляем периметр по формуле

writeln (' периметр = ', r:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

end;

end.