Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
Begin
var a:=ArrRandom(10,-10,10).Println;
writeln(a.Where(x->x<0).Max);
end.
Ограничено только размеров условного документа, создать можно сотни тысяч, единственное условие - 1 символ = 1 байт = 8 бит
2,3,5 думаю что будет правильно
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши