program Risovanie;
uses crt;
procedure Ris(x,y:integer);
var i:integer;
begin
Gotoxy(x,y);
write('*****');
gotoxy(x,y+1);
write('*');
gotoxy(x,y+2);
write('*');
gotoxy(x+1,y+2);
write('*');
gotoxy(x+2,y+3);
write('**');
gotoxy(x+3,y+4);
write('*');
gotoxy(x+3,y+5);
write('*');
gotoxy(x+3,y+6);
write('*');
gotoxy(x+1,y+7);
write('**');
gotoxy(x,y+8);
write('*');
end;
var i:integer;
begin
i:=5;
while i<70 do
begin
clrscr;
ris(i, 20);
inc(i,5);
end;
end.
Следующий вариант
program Risovanie;
uses crt;
var i:integer;
procedure Ris(x,y:integer);
begin
Gotoxy(x,y);
write('*****');
gotoxy(x,y+1);
write('*');
gotoxy(x,y+2);
write('*');
gotoxy(x+1,y+2);
write('*');
gotoxy(x+2,y+3);
write('**');
gotoxy(x+3,y+4);
write('*');
gotoxy(x+3,y+5);
write('*');
gotoxy(x+3,y+6);
write('*');
gotoxy(x+1,y+7);
write('**');
gotoxy(x,y+8);
write('*');
end;
begin
i:=5;
while i<70 do
begin
clrscr;
ris(i, 20);
inc(i,5);
end;
end.