(дана величина а, выражающая объем информации в байтах. перевести а в более крупные единицы измерения информации.) var a: real; begin readln(a); writeln('в килобайтах' a/1024); writeln('в мегабайтах' a/(1024*1024)); end. это правельно? если нет, тогда распишите так как у меня написано, чтоб можно было вести и не морочить себе голову.

ну если не надо еще в какие-нибудь другие единицы то правильно, но ты понял как добавить еще точности, так ведь?

по одному.

обь в канал, мир,енесей,россия проплыли канал. обь выплыла и поплыла себе куда надо.

мир,енесей,россия вернулись обратно перед каналом

в канал заплыл восток.

мир,енесей,россия проплыли канал. восток уплыл

и тд

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

end.