Дана стоимость 100 гр. продукта и сумма. Найти количество продукта в граммах и килограммах. - Pascal ABC

Формулировка задачи:

Задана стоимость 100 гр. продукта и имеющаяся сумма. Найти соответствующее количество продукта в граммах и килограммах.

Решение задачи: «Дана стоимость 100 гр. продукта и сумма. Найти количество продукта в граммах и килограммах.»

Листинг программы

program cyb;
uses crt;
var   a,b,c,sum:real;
begin
write('Введите стоимость продукта за 100 гр: ');
readln(a);
Write('Введите сумму: ');
 readln(b);
  c:=a/100;
  sum:=trunc(b/c);
  writeln('колличество продукта: ',sum,' гр');
  write('колличество продукта ',sum/1000,' кг');
end.

Объяснение кода листинга программы

В программе объявлены переменные a, b, c и sum типа real, которые будут использоваться для хранения стоимости продукта за 100 гр и суммы соответственно.
С помощью функции readln() пользователю предлагается ввести стоимость продукта за 100 гр.
Затем пользователю предлагается ввести сумму.
Переменная c инициализируется как a/100, то есть стоимость продукта за 100 гр, деленная на 100.
Переменная sum инициализируется как trunc(b/c), то есть округленное до ближайшего целого число, деленное на c. Это будет общая сумма продукта в граммах.
С помощью функции write() выводится сообщение с количеством продукта в граммах, равным sum.
С помощью функции write() выводится сообщение с количеством продукта в килограммах, равным sum/1000, то есть sum, деленная на 1000.
Программа завершается.