Тело цикла будет выполнено 31 раз. Следовательно переменная s станет равна 93
Var i, f:integer;
begin
f := 1;
for i:= 1 to 6 do begin
f := f*i;
end;
write(f);
end.
Var
n:integer;
begin
readln(n);
n:=n mod 7;
if n=1 then
writeln('Понедельник');
if n=2 then
writeln('Вторник');
if n=3 then
writeln('Среда');
if n=4 then
writeln('Четверг');
if n=5 then
writeln('Пятница');
if n=6 then
writeln('Суббота');
if n=7 then
writeln('Восресенье');
end.
<span>64*64*8=32768кб= 4096 байт = 4 кб</span>