Введите на языке Pascal. Программа предлагает перевести на русский язык английское слово Windows и ввести ответ с клавиатуры. Если ответ верен (введено "окна"), то вывести на экран фразу "Молодец! Верно", иначе - вывести "неверно!".
program TranslateWord; var word, answer: string; begin writeln('Переведите на русский язык слово "Windows": '); readln(answer); if answer = 'окна' then writeln('Молодец! Верно') else writeln('Неверно!'); end.
var
word, answer: string;
begin
writeln('Переведите на русский язык слово "Windows": ');
readln(answer);
if answer = 'окна' then
writeln('Молодец! Верно')
else
writeln('Неверно!');
end.