Напишите программку, которая будет запрашивать у юзера число в мб и

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