Составить программу на паскале.Заданы длины сторон трех треугольников.Найти больший периметр.Для вычисления периметра треугольника используйте процедуру 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.