Задача должна быть решена на языке Паскаль

// PascalABC.NET

uses System.Globalization;

begin

 CultureInfo.CurrentCulture := new CultureInfo('ru-RU');

 var t:= DateTime.Parse('05.05.2012 17:05:05');

 t := t.AddDays(500);

 t := t.AddHours(50);

 t := t.AddMinutes(50);

 t := t.AddSeconds(50);

 Print(t)

end.

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.

бег - бог - бок - бак - мак - маг -шаг