Подсчитать количество целых среди чисел А, B, С

program rew2;
var a,b,c,d:real;
begin
    write ('vedite storonu');  readln (a,b,c,d);
    if (a/b=c/d) then writeln ('podobni') else writeln ('ne podobni');
    readln;
end.

program zada4i;
var m:integer;
begin
    write ('m= '); readln(m);
    case m of
        1: writeln ('FEVRAl');
        2: writeln ('MART');
        3: writeln ('aprel');
        4: writeln ('mai');
        5: writeln ('Iun');
        6: writeln ('Iul');
        7: writeln ('AVGUST');
        8: writeln ('SENT9Br');
        9: writeln ('okt9br');
        10: writeln ('no9br');
        11: writeln ('dekabr');
        12: writeln ('9nvar');
        else writeln ('NET takogo');
    end;
    readln;
end.

program zada4i;
var a:array [1..10,1..10] of integer;
    i,j,k,x,max:integer;
begin
    x:=1;
    writeln ('***************************');
    for i:=1 to 10 do
        for j:=1 to 10 do
            a[i,j]:=random(100)-50;
    for i:=1 to 10 do begin
        writeln;
        for j:=1 to 10 do write (a[i,j]:4);
    end;
    writeln;
    writeln ('==============');
    for i:=1 to 10 do begin
        max:=1;
        for j:=2 to 10 do
            if (a[i,max]<a[i,j]) then max:=j;
        k:=a[i,max];  a[i,max]:=a[i,x]; a[i,x]:=k;
        x:=x+1;
    end;
    for i:=1 to 10 do begin
        writeln;
        for j:=1 to 10 do write (a[i,j]:4);
    end;
    readln;
end.

program zada4i;
var a:array [1..100] of integer;
    n,i,p,o:integer;
begin
    o:=0; p:=0;
    write ('N= '); readln (n);
    for i:=1 to n do begin
        a[i]:=random (100)-50; write (a[i]:3);
        if a[i]<0 then o:=o+1 else if a[i]>0 then p:=P+1;
    end;
    writeln;
    writeln ('polozitelnix ',p,' otricatelnix ',o ,' nulevix ',n-p-o);
    readln;
end.

var
  s : string;
  i,n : integer;
begin
  readln(s);
  n := 0;
  for i := 1 to (length(s) - 2) do
    if (s[i] = 'a') and (s[i+1] = 'b') and (s[i+2] = 'c') then
      inc(n);
  writeln(n);
end.

program n1;
uses crt;
var d:integer; c,f,e: char; k: real;
begin
    clrscr;
    write('Dannie celogo tipa ');
    read(d);
    write('Dannie simvolnogo tipa ');
    read(c,f,e);
    write('Dannie veschestvennogo tipa ');
    read(k);
    writeln('d=', d, '=' ,d:3);
    write('c=', c, '=' ,c:1); write('f=', f, '=' ,f:1); write('e=', e, '=' ,e:1);
    writeln('k-', k, '=' ,k:1:2);
    readln
end.

program n1;
uses crt;
var d:integer; c,f,e: char; k: real;
begin
    clrscr;
    write('Dannie celogo tipa ');
    readln(d);
    write('Dannie simvolnogo tipa ');
    readln(c,f,e);
    write('Dannie veschestvennogo tipa ');
    readln(k);
    writeln('d=', d, '=', d:3);
    writeln('c=', c, '=', c:1);
    writeln('f=', f, '=', f:1);
    writeln('e=', e, '=', e:1);
    writeln('k=', k, '=', k:1:2);
    readln;
end.

program cyb7;
uses
Crt;
var
 s: string;
 i: byte;
 zifru: set of char;
begin
 ClrScr;
 zifru:= ['0','1','2','3','4','5','6','7','8','9'];
 writeln('Vvedite formulu: ');
 readln(s);
 for i:= 1 to Length(s) do
  if s[i] in zifru then
   exclude(zifru,s[i]);
 writeln('Zifru ne vhodiashie v formulu: ');
 for i:= 0 to 9 do
  if chr(ord('0')+i) in zifru then
   write(chr(ord('0')+i),' ');
 readln;
end.

uses crt;
var s:string; //строка (формула)
m:set of char;//множество
i:integer; //численный счетчик
j:char;  //символьный счетчик
begin
clrscr;
write('Vvedite formulu:');
readln(s);
m:=[]; //пустое множество
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then //если цифра, то заносим во множество
m:=m+[s[i]];
for j:='0' to '9' do 
if not (j in m) then //если какой-то цифры нет во множестве, выводим
write(j,' ');
readln
end.