Дано четырехзначное число.

VAR
a,c1,c2,c3,c4: integer;
BEGIN
readln(a);
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if c1+c2=c3+c4 then writeln ('ДА') else writeln('НЕТ');
readln;
END.

Блок-схема и решение скинул тебе на мыло. Т. к. с английским глюки

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
a,f,g,d,k: integer;
begin
writeln('vvedite chislo');
readln(k);

d:= k div 1000;// тысячи
f:= k mod 1000 div 100;// сотни
a:= k mod 100 div 10; // десятки
g:= k mod 10; // единицы
while k<>0 do
if d+f=a+g then writeln('yes') // если равны то да
else writeln('no'); // иначе нет
readln;
end.

в паскале не знаю как код писать. но сделать можно таким образом:

тебе нужно узнать что это за цифры (состав числа) .
определить первую цифру числа: число разделить на 1000 и взять нижнюю целую часть.
вторая цифра: взять модуль от деления числа на 1000, разделить его на 100, и взять нижнюю целую часть
третья цифра: взять модуль от деления числа на 100, разделить его на 10, и взять нижнюю целую часть
четвертая цифра: модуль от деления числа на 10.

далее сравниваешь суммируешь цифры по парам и сравниваешь пары.

илья банников помоги пж с блок схемой