Var a,b,s,i:integer;
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
<span>a, b:
20 100
s = 1260</span>
Var
a, b, c, p: real;
begin
readln(a, b, c);
p := 0.5 * (a + b + c);
writeln('S = ', sqrt(p * (p - a) * (p - b) * (p - c)));
end.
Ответ: 135(10) = 207(8), фото ниже.
Программа на паскале для решения задачи - в прилагаемом файле
Если я правильно понял суть задания
var n,m:inreger;
begin
readln(n);
m:=n+1;
writeln(m);
end.