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

 Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))     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.