Напечатать таблицу цены 50, 100, 150, .... 1000 г сыра. Стоимость

program zz1;

var c, s:integer; // задаем переменные целого типа

begin

c:=5; // задаем изначальное значение для переменной цикла

while c lt;= 50 do // организуем цикл, пока переменная цикла не достигнет последнего значения

begin

s:=1000 * c ; // получаем количество гр, используя заданную формулу для перевода

writeln( для , c, килограмм, количество гр = , s);  // выводим ответ

c:=c + 5; // увеличиваем переменную цикла на шаг, который равен пяти

end;

end.