Програма, яка виводить на екран цифру 0, написану зірочками:
program nolik;
var i: byte;
begin
writeln ('****');
for i:=1 to 3 do
writeln ('* *');
writeln ('****');
readln
end.

Програма має діяти так:
****
* *
* *
* *
****