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

1. С вещественными числами

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

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

2. С целыми числами

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

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