Calculate and display the values of the perimeters of 25 triangles at various values of their

Calculate and display the values of the perimeters of 25 triangles at various values of their sides (A; 0, B; 0, C; 0), entered from the keyboard.

program zz1;
var a, b, r, c: real; // set variables of non-integer type
i: integer;
begin
for i: = 1 to 25 do
begin
write (‘enter the first side’); // enter the first number from the keyboard
read (a);
write (‘enter the second side’); // enter the second number from the keyboard
read (b);
write (‘enter third party’); // enter the third number from the keyboard
read (b);
r: = a + b + c; // calculate the perimeter using the formula
writeln (‘perimeter =’, r: 5: 2); // display the answer in the format of five characters for the whole number and two characters after the dot
end;
end.