Ответы и объяснения

2014-03-15T16:10:17+04:00
Program perimetr;
var a,b,c,a1,b1,c1,p,p1:integer;
begin
writeln('введите 3 стороны первого треугольника');
readln(a,b,c);
p:=a+b+c;
writeln('введите 3 стороны второго треугольника');
readln(a1,b1,c1);
p1:=a1+b1+c1;
if p1<p then begin
writeln('p1 меньше, p1= ',p1);
end;
else writeln('р меньше,р= ',p);
end.
спасибо огромное
ой. перед esle только не ставь точку с запятой
я тупанула