помогите перевести программу из паскаль турбо в паскаль abs ;uses graphabc;var

Помогите перевести программку из паскаль турбо в паскаль abs ;
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.

Ваня Дрюков 2019-02-05 23:51:23

У меня нет Pascal ABC, этот проект закрыт 10 лет вспять могу написать в PascalABC.NET.

Роман Сухорадо 2019-02-05 23:57:07

lf

Антонина Латыева 2019-02-06 00:03:16

да

Олеся 2019-02-06 00:10:32

спасибо

Вася Шалыгин 2019-02-06 00:12:37

пожалуйста

Толя Мавлевич 2019-02-06 00:14:50

Сравнив тексты программ, Вы сможете догадаться, почему проект Pascal ABC, практически дублирующий Турбо Паскаль, был закрыт.