1.

var i:integer;

begin

i:=1;

while i<=10 do begin

writeln(sqrt(i));

i:=i+1;

end;

end.

2.

var price:real;

i:integer;

begin

write('Цена 1кг конфет? ') ;

readln(price);

i:=1;

while i<=10 do

begin

writeln('Цена ', i, 'кг конфет: ', i*price);

i:=i+1;

end;

end.