1)var a,c:real;
i:integer;
begin
write('Сколько стоит 1 кг конфет: ');
readln(a);
for i:=1 to 10 do
begin
c:=i*a;
writeln(i,' кг: ',c);
end;
end.
2)var a,c:real;
i:integer;
begin
write('Сколько стоит 1 кг конфет: ');
readln(a);
for i:=1 to 10 do
begin
c:=i/10*a;
writeln(i/10,' кг: ',c);
end;
end.
3)var a,c:real;
i:integer;
begin
write('Сколько стоит 1 кг конфет: ');
readln(a);
for i:=1 to 5 do
begin
c:=(i/5+1)*a;
writeln(i/5+1,' кг: ',c);
end;
end.