PLEASE . HELP ME. Дано вещественное число - цена 1 кг конфет. Вывести стоимость 1.2 ,...

Question

PLEASE . HELP ME.
Дано вещественное число - цена 1 кг конфет.
Вывести стоимость 1.2 , 1.4, ... , 2 кг конфет.

Answer 1

Program konf;
var  a, b, summ: real;
begin 
 a := 1.2; 
 readln(b); 
while a < 2 do 
 begin   
 summ := a * b; 
  writeln(summ, ' za ', a); 
  a := a + 0.2 
end;
end.

Comments

Спасибо.