100011002 = 1∙27+0∙26+0∙25+0∙24+1∙23+1∙22+0∙21+0∙20 = 128+0+0+0+8+4+0+0 = 14
var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
19 минут = 1140 секунд
примерно 68 Кбайт/секунду