Составить программу для решения задачи:"Ввести число, обозначающее размер одной фотографии в Мбайтах. Определить, Как узнать сколько фотографий поместится на флэш-карту объёмом 2 Гбайта." Язык программирования: Pascal

var
  k:real;
begin
  Write('Размер фотографии, мб: '); Read(k);
  Writeln('На flash-card объемом 2 Гб поместится фото: ',
    Trunc(2*1024/k))
end.


Размер фотографии, мб: 3.27
На flash-card объемом 2 Гб поместится фото: 626



var
  k:integer;
begin
  Write('Размер фотографии, мб: '); Read(k);
  Writeln('На flash-card объемом 2 Гб поместится фото: ',2*1024 div k)
end.


Размер фотографии, мб: 3
На flash-card объемом 2 Гб поместится фото: 682