Напишите программу, которая будет запрашивать у пользователя число в мегабайтах и выводить на экран его значение в Кб

program convert;var v: integer;beginv:=1;writeln(\'Выход из программы - на запрос о вводе ввести \"0\"\');while v>0 dobeginwriteln();writeln(\'Введите число объем информации в мегабайтах\');readln(v);if v>0 then writeln(v, \' Мбайт = \', V * 1024, \' Кбайт = \', v * 1024 * 1024, \' байт.\')else writeln(\'Работа программы завершена\')endend.