Ответ:
100
Объяснение:
Если по дате рождения больше 100, то не даст зарегасться
program p;
var b, c:integer;
begin
c := 0;
b := 3;
while b <= 10 do
c := c + b;
b := b + 2;
end;
writeln(c);
end.
var a:integer;
Begin
read(a);
if a mod 3 = 0 then writeln('Делится')
else writeln('Не делится');
readln;
End.