var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
n : integer;
s : real;
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
n должно быт n >= 10
16бит=2байта
2*64*56*1024=7340032=7мб