Ответы и объяснения

2014-04-03T22:09:30+04:00
Var
i:integer;
k:real;
begin
for i:=1 to 10 do begin
k:=i/7;
writeln(i,' / 7 = ',k:0:5);
end;
end.

если ты об этом....нет тогда переставь там где к