201/1024=0,196 //Переводим в Мб
500-0,196=499,804 мб
Ответ:499,804 Мбайт
Графический интерфейс и текстовый
program choise;
var m:integer;
begin
writeln('Введите натуральное число ');
read(m);
if m=1 then
writeln('Привет')
else if m=0 then
writeln('Как дела?')
else
writeln('Пока');
end.
Это фоторафии, рисунки, изображения