Question

Люди, помогите. Паскаль АБЦ Нэт. Задание pp4 Перекиньте выполненное задание

Answer 1

uses Drawman;
var a,i:integer;
procedure square(a:integer);
begin
pendown;
onvector(a,0);
onvector(0,-a);
onvector(-a,0);
onvector(0,a);
end;

begin
Task('pp4');
ToPoint(7,17); 
pendown; 
a:=15; 
for i:=1 to 8 do
    begin
    square(a);
    penup;
    onvector(1,-1);
    a:=a-2;
    end; 
ToPoint(0,0);
end.