Ребят с контрольной работой максимальный ​

var a,b: string; begin                            cls;   read(a);     b: =a;           write('b')end.           

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

var a: integer; beginreadln(a); write (a div 10); end.

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.