Найти сумму трех первых цифр равна последней цифре целого пятизначного числа

uses crt;
var n,a,b:integer;
    f:boolean;
begin
repeat
write('Введите 5 значное число n=');
readln(n);
until(n>9999)and(n<100000);
f:=n div 10000+n div 1000 mod 10+n div 100 mod 10=n mod 10;
writeln('Верно ли что сумма первых 3 цифр равна последней цифре');
writeln(f);
f:=n div 100 mod 10+n div 10 mod 10+n mod 10=n div 10000;
writeln('Верно ли что сумма последних 3 цифр равна первой цифре');
writeln(f);
write('Введите целое число a=');
readln(a);
write('Введите целое число b=');
readln(b);
f:=(a>0)and(a mod b=0);
writeln('Верно ли что число ',a,' натуральное и кратно ',b);
writeln(f);
f:=(a mod 2=0)and(a mod b<>0);
writeln('Верно ли что число ',a,' четное и не кратно ',b);
writeln(f);
repeat
write('Введите 2 значное число n=');
readln(n);
until(n>9)and(n<100);
f:=(n div 10<>4)and(n mod 10<>4);
writeln('Верно ли что в число ',n,' не входит цифра 4');
writeln(f);
repeat
write('Введите 3 значное число n=');
readln(n);
until(n>99)and(n<1000);
f:=(n div 100=9)or(n div 10 mod 10=9)or(n mod 10=9);
writeln('Верно ли что в число ',n,' входит цифра 9');
writeln(f);
end.

var a,b,c:integer;
    a1,b1:real;
begin
 writeln('1)');
 writeln('a,b=?');
 readln(a,b);
 if a>b then writeln('a>b')
        else if a=b then writeln('a=b')
                    else writeln('a<b');
 writeln('2)');
 writeln('a/b');
 writeln('a=?');
 readln(a);
 writeln('b=?');
 readln(b);
 if (a mod 2=0)and(b mod 2=0) then writeln('a/b=',a div 2,'/',b div 2)
                              else writeln('a/b=',a,'/',b);
 writeln('3)');
 writeln('a,b=?, a,b:real');
 readln(a1,b1);
 if a1<0 then a1:=a1*a1*a1*a1*a1 else a1:=sqr(a1);
 if b1<0 then b1:=b1*b1*b1*b1*b1 else b1:=sqr(b1);
 writeln('a=',a1:0:3,'    b=',b1:0:3);
 writeln('4)');
 writeln('a,b,c=?');
 readln(a,b,c);
 if (a>b+c)and(b>a+c)and(c>b+a) then writeln('p=',a+b+c)
                                else writeln('-');
 writeln('5)');
 writeln('a,b,c=?');
 readln(a,b,c);
 if (a=b)and(b=c) then writeln('+')
                  else writeln('-');
 writeln('6)');
 writeln('a,b,c=?');
 readln(a,b,c);
 if ((a=b)and(b<>c))or((b=c)and(c<>a))or((c=a)and(a<>b))
  then writeln('+')
  else writeln('-');
 writeln('end');
 readln
end.

var a,b,c:real;
    k:byte;
begin
writeln('Ââåäèòå 3 ÷èñëà');
k:=0;
write('A=');
readln(a);
if a<0 then k:=k+1;
write('B=');
readln(b);
if b<0 then k:=k+1;
write('C=');
readln(c);
if c<0 then k:=k+1;
write('Êîëè÷åñòâî îòðèöàòåëüíûõ=',k)
end.

var a,b,c,s:real;
begin
writeln('Введите 3 числа');
s:=0;
write('A=');
readln(a);
if a>0 then s:=s+a;
write('B=');
readln(b);
if b>0 then s:=s+b;
write('C=');
readln(c);
if c>0 then s:=s+c;
write('Сумма положительных=',s)
end.

var a,b,c,k,q:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
write('Введите число для проверки делимости k=');
readln(k);
q:=0;
writeln('Число ',k,' является делителем чисел:');
if a mod k=0 then
 begin
  write(a,' ');
  q:=1
 end;
if b mod k=0 then
 begin
  write(b,' ');
  q:=1
 end;
if c mod k=0 then
 begin
  write(c,' ');
  q:=1
 end;
if q=0 then write('Таких чисел нет')
end.

var a,b,c,k:integer;
begin
writeln('Ââåäèòå 3 öåëûõ ÷èñëà');
k:=0;
write('A=');
readln(a);
if a mod 3=0 then k:=k+1;
write('B=');
readln(b);
if b mod 3=0 then k:=k+1;
write('C=');
readln(c);
if c mod 3=0 then k:=k+1;
write('Êîëè÷åñòâî êðàòíûõ 3=',k)
end.

var a,b,c:real;
    f:boolean;
begin
writeln('Введите 3 числа');
readln(a,b,c);
f:=(a=-b)or(a=-c)or(b=-c);
writeln('Есть ли пара взаимно противоположных');
write(f);
end.

var a,b,c:real;
begin
writeln('Введите координату Х точек А,В,С');
write('A=');readln(a);
write('B=');readln(b);
write('C=');readln(c);
if abs(a-b)<abs(a-c) then write('Точка В ближе к А')
else if abs(a-b)>abs(a-c) then write('Точка C ближе к А')
else write('Точки В и С на одном расстоянии от точки А')
end.

var x,y:real;
begin
writeln('Введите координаты точки А');
readln(x,y);
if(x=0)and(y=0) then write('Точка в начале координат')
else if (y=0)and(x<>0) then write('Точка на оси Х')
else if (x=0)and(y<>0) then write('Точка на оси Y')
else if(x>0)and(y>0)then write('Точка в 1 четверти')
else if(x<0)and(y>0)then write('Точка во 2 четверти')
else if(x<0)and(y<0)then write('Точка в 3 четверти')
else if(x>0)and(y<0)then write('Точка в 4 четверти')
end.