Question

один килограм конфет.стоит 450 р.напечатать таблицу стоимости 2,3,...20 кг этих конфет

Answer 1

var i:integer;
begin for i:=2 to 20 do writeln(i:2,' килограмм (-а) конфет стоит ',i*450:4,' руб.')
end.