Размер вводится с клавиатуры program n1; var x,y:real; begin writeln('Введите размер изображения '); read(x,y); y:=2*x*y/8/1024; writeln('Размер изображения ',y:6:2,' Кб'); end.