Question

помогите перевести программу из паскаль турбо в паскаль абс ;
uses graphabc;
var x0,y0,gd,gm,i:integer;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=getmaxX div 2;
y0:=getmaxY div 2;
for i:=1 to 6 do
rectangle(x0-i*10,y0-i*10,x0+i*10,y0+i*10);
readln;
closegraph
end.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin

 var (x0, y0) := (Window.Width div 2, Window.Height div 2);

 for var i := 1 to 6 do

   DrawRectangle(x0 - i * 10, y0 - i * 10, x0 + i * 10, y0 + i * 10);

end.