Задачка в Паскаль. Дана стоимость одного 1 кг конфет. Вывести стоимость 1, 2, ..., 10 кг конфет.

program qwerty;

var a,b,c: real;

begin

write('Введите стоимость 1 кг конфет: ');

readln(a);

b:= 0;

c:= 0;

while c<10 do

begin

c:=c+1;

b:=b+a;

writeln('Стоимость ',c,' кг конфет равна ',b);

end

end.

var x, y, a:integer;

begin

writeln('введите сколько кг');

read(x);

writeln('введите сколько стоит 1 кг');

read(y);

a:=x*y;

writeln(a);

end.