написать программу на языке паскаль, буду благодарен

uses crt;
var
n, a, b, c: integer;
begin
clrscr;
writeln('Vvedite N: ');
readln(n);
writeln('Summa lubyh 2-h cyfr N ravna 3-ei cyfre?');
a := n div 100;
b := (n mod 100) div 10;
c := n mod 10;
if (a + b = c) or (a + c = b) or (c + b = a) then
writeln('true')
else
writeln('false');
readln;
end.

var
N,i,j,k:integer;
m:array[1..3] of integer;
begin
repeat
repeat
begin
write('N>0. Vvedite N=');
read(N);
end;
until N>0;
i:=N;k:=0;
while i<>0 do
begin
j:=i mod 10;
k:=k+1;
m[k]:=j;
i:=i div 10;
end;
until k=3;
if (m[1]+m[2]=m[3]) or (m[1]+m[3]=m[2]) or (m[2]+m[3]=m[1]) then
begin
write('false');
end
else
write('true');
readln;
readln;
end.

Операторы case. Это раз.
Обычный if со сравнением это два.

еще как вариант.
Вводим N
Преобразуем N в строку S
sum := int(S[1])+int(S[2])
Если Sum = int(S[3]) тогда Result:=True иначе Reult:=false

Выводим результат.

Паскаль не очень хорошо помню и сейчас вспоминать лень, но с алгоритмом помочь могу.
1. Делим N на 10, оставляя только остаток от деления. В коде выглядит где-то так: remainder := N mod 10;
2. Вводим числа.
3. Суммируем эти числа и сравниваем с remainder, в какую то переменную записываем результат.
if (a + b) = remainder then
boo := true
else
boo := false;
4. Вывести результат.