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

program convert;

var v: integer;

begin

v:=1;

writeln ('Выход из программы - на запрос о вводе ввести "0"');

while v>0 do

begin

writeln ();

writeln ('Введите число объем информации в мегабайтах');

readln (v);

if v>0 then

writeln (v, ' Мбайт = ', V * 1024, ' Кбайт = ', v * 1024 * 1024, ' байт.')

else writeln ('Работа программы завершена')

end

end.