Question

8 класс паскаль пожалуйста​

Answer 1

var

 cost,kg:real;

begin

 kg:= 10;

 read(cost);

 while ( kg <= 20) do begin

   writeln(kg,' кг груш = ', kg*cost,' руб.');

   kg := kg + 1;

 end;

end.