Pokud neumíš cyklus, nemusíš ho používat :

var
var S: string;
begin
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));write(chr(42)); write(chr(42));write(chr(42));write(chr(42));write (chr(42));write(chr(42));write(chr(42));write(chr( 42));write(chr(42));write(chr(42));writeln(chr(42) );
S:=' a slíbená jedna hvězdička * v programu';
end;