Question

Пожалуйста сделайте, записать на языке Паскаль

Answer 1

program psck;

var

a: real;

begin

write('Байт - '); 
read(a);
writeln;

writeln('Кб - ',a/1024);
writeln('Мб - ',a/1024/1024);
writeln('Гб - ',a/1024/1024/1024);

end.