Я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
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.
32 Кбайт= 2^5*2^10=2^15
128 Мбайт= 2^7*2^10*2^10=2^27
512 Гбайт= 2^9*2^10*2^10*2^10=2^39
<span>1)ОДНОРОДНЫЙ ПО СМЫСЛУ БЛОК ДАННЫХ,ХРАНЯЩИЙСЯ ВО ВНЕШНЕЙ ПАМЯТИ И ИМЕЮЩИЙ ИМЯ</span>