{print "something" three times}
{use negative going count}
program u44;
var countempty:integer; {count of empty spaces where the word "something"
should appear }
begin
countempty:=3;
while(countempty <> 0) do begin
write('something');
writeln;
countempty:=countempty-1;
end;