U şeklinde ismi ekrana yazan program kodları aşağıdadır.
uses crt;
var
x,y:integer;
begin
clrscr;
for x:=1 to 8 do
for y:=5 to 8 do
begin
gotoxy(9*x-3,3*y);
if (x>=2) and (y<=7) and (y>=2) and (x<=7) then
writeln('')
else
writeln('sonnur');
end;
readln;
end.