Площадь находиться длинну умножить на ширину,а периметор все стороны надо сложить
uses graphabc;
begin
SetPenWidth(2);
rectangle (100,100,500,300);
line(300,100,300,300);
moveto(100,100);
lineto(200,50);
lineto(400,50);
lineto(500,100);
line(200,50,300,100);
SetBrushColor(clGray);
rectangle(150,150,250,250);
end.
32*62=1984 символа на странице
1984*16=31744 символов всего
31744 символов = 31744 байт англ. текст
31744/2=15872 байт русский текст
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords;
s[1]:='в'; s.Println
end.
Пример
мама мыла раму
мама в раму