Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.
<span>mas[1]:=10;
mas[5]:=25;
mas[9]:=16;
cледовательно
A[1]:=(16-10)*25];
получаем
</span>
150
1) Условие неполное. Что делать с числами 0, 5, 10 ... 1000?
2)
var a,b,c,max: integer;
begin
writeln('Введите 3 числа через пробел:');
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max=',max);
<span>end.</span>