Задача в Паскаль. Дана цена 1-го 1 кг конфет. Вывести цена

var x, y, a:integer;

begin

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

read(x);

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

read(y);

a:=x*y;

writeln(a);

end.

program qwerty;

var a,b,c: real;

begin

write('Введите цена 1 кг конфет: ');

readln(a);

b:= 0;

c:= 0;

while clt;10 do

begin

c:=c+1;

b:=b+a;

writeln('Цена ',c,' кг конфет одинакова ',b);

end

end.