program BunnyDrawing;
uses crt;
var
i, j: integer;
begin
clrscr;
for i := 1 to 5 do
begin
for j := 1 to i do
write('*');
writeln;
end;
for i := 4 downto 1 do
begin
for j := 1 to i do
write('*');
writeln;
end;
readln;
end.

Этот код создаст простого зайчика, состоящего из пяти строк звездочек для ушей и тела.