1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4
Вместо integer напиши real в var и будет тебе счастье
const
n = 7;
var
y: <em>real</em>;
i: <em>integer</em>;
begin
for i := 1 to n do
y := y + n / i;
writeln(y);
end.
Var x:integer;
begin
readln(x);
if (x div 10=0) then writeln('odnozn.')
else writeln('mnogozn.');
end.