Программа на паскале вычесление периметра пятиугольника

program pyat;

var a, b, c, d ,f, p : integer;

begin

writeln ('vvedite dlini storon pyatiugolnika');

readln (a);

readln (b);

readln (c);

readln (d);

readln (f);

p: = a+b+c+d+f;

writeln ('perimetr raven', p);

readln;

end.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

Var a,b,s,c,d: real; begin write('a, b: '); readln(a,b); write('c: '); readln(c); s: =2*(a+b); writeln('количество сетки: ',s: 5: 1,' м'); d: =a*b*c; writeln('количество минеральных удобрений: ',d: 5: 1,' кг'); end. пример: a, b: 24 50c: 2.5количество сетки: 148.0 мколичество минеральных удобрений: 3000.0 кгили так (без ввода данных): var a,b,s,c,d: real; begina: =24; b: =50; c: =2.5; s: =2*(a+b); writeln('количество сетки: ',s: 5: 1,' м'); d: =a*b*c; writeln('количество минеральных удобрений: ',d: 5: 1,' кг'); end.результат: количество сетки: 148.0 мколичество минеральных удобрений: 3000.0 кг