Составить программу на паскале. Заданы длины сторон трех треугольников. Найти больший периметр. Для вычисления периметра треугольника используйте процедуру Perimetr, для определения большего из 2 чисел-процедура max

Program prx;

uses crt;

Var a, d, c, k, d, g, o, f, v. perimetr1, perimetr2, perimetr3, max:byte;

Begin

Writeln ("Введи длины сторон трех треугольников") ;

Readln (a, d, c, k, d, g, o, f, v) ;

Perimetr1:=a+d+c;

Perimetr2:=k+d+g;

Perimetr3:=o+f+v;

If perimetr1>perimetr2

Then max:=perimetr1

Else if perimetr2>perimetr3

Then max:=perimetr2

Else max:=perimetr3

End;

End;

Writeln (max) ;

Readln;

End.