Программа спрашивает»Рисуем» До тех пор пока ответ не будет «Нет». — Pascal(Паскаль)

var mess:string;
repeat
writeln('Рисуем?');
readln(mess);
until ( mess = 'Нет' );
end.