program
zadacha;
var
i: integer;
st:real;
begin
writeln('vvedite
stoimost 1 kg');
readln(st);
for i:=1 to
10 do
write(st*i:6:1,'
');
end.
program
zadacha_2;
var
N,i:
integer;
begin
writeln('vvedite
N');
readln(N);
i:=1;
while
N>(sqr(i))
do
begin
i:=i+1;
if
N<(sqr(i)) then writeln(sqr(i));</p>
end;
end.
