С клавиатуры вводить символы до тех пор пока не будет введен символ "Я" (использовать...

Question

С клавиатуры вводить символы до тех пор пока не будет введен символ "Я" (использовать оператор while) Напишите программу для PASCAL ABC СРОООЧЧНОО!

Answer 1

Var x: string;
begin
while x<>'Я' do
begin
readln(x);
end;
end.