Сделать программы! вот условия: 1.дана цена за 1.2кг конфет .вывести цену за 1.2кг,1.. 2.даны 2 целых числа a и b (a заранее .

Var p12, p, m: real; i:integer;
begin
writeln('Введите цену (руб) за 1,2кг конфет: ');
readln(p12);
p:=p12/1.2;
m:=1;
writeln(' Вес    Цена');
for i:=1 to round((2-1.2)/0.2)+1 do
 begin
 m:=m+0.2;
 writeln(m:4:1,'  ',p*m:6:2,' руб');
 end;
end.

Пример:
Введите цену (руб) за 1,2кг конфет:
120
 Вес Цена
1.2 120.00 руб
1.4 140.00 руб
1.6 160.00 руб
1.8 180.00 руб
2.0 200.00 руб