var
variable111: integer;
begin
variable111 := 15;
while variable111 <> 0 do
write('УРОК ');
variable111 := variable111 - 1;
end
end.
