Вопрос, который вызвал трудности

С клавиатуры вводят строку 'город минск' в нижнем регистре. Составьте программу, которая преобразовывает название города к верхнему регистру и выводит: 'город МИНСК'.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

 Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

 

 

var
a: string;
b: integer;


begin
writeln ('Введите строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
while (b = 1) do
begin
writeln ('Введіте строку');
read (a);
if (a='город минск')
then writeln ('город МИНСК')
else
begin
writeln ('введите "город минск", 1-продолжить, 0-выйти');
read (b);
end;
end;

end.