var

a,b,c,d:real;

z,x:integer;

begin

z:=0;

x:=0;

readln(a);

readln(b);

readln(c):

readln(d);

if (b mod a)=0 then writeln('a делитель числа  b');

if (с mod a)=0 then writeln('a делитель числа  с');

if (в mod a)=0 then writeln('a делитель числа  в');

if a>b then z:=z+1;

if b>c then z:=z+1;

if c>d then z:=z+1;

if z=3 then writeln('числа расположены по убыванию');

z:=0;

if a mod 5=0 then x:=x+1;

if a mod 7=0 then x:=x+1;

if x=2 then z:=z+1;

x:=0;

if b mod 5=0 then x:=x+1;

if b mod 7=0 then x:=x+1;

if x=2 then z:=z+1;

x:=0;

if c mod 5=0 then x:=x+1;

if c mod 7=0 then x:=x+1;

if x=2 then z:=z+1;

x:=0;

if d mod 5=0 then x:=x+1;

if d mod 7=0 then x:=x+1;

if x=2 then z:=z+1;

x:=0;

writeln(z,'чисел делятся на 5 и 7 ');

z:=0;

if a<=7 then z:=z+1;

if b<=7 then z:=z+1;

if c<=7 then z:=z+1;

if d<=7 then z:=z+1;

if z>0 then writeln('есть числа больше или равные 7')

end.

предпоследнее не могу прочесть задание, так что сорри.