64 бит , 1 мб , 1 байт , 2048 кб
Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
Набей в инете номер ошибки или если после обновлений зайди в востановление Виндоус там должна быть свежая точка.
Числовая
....................................