program Project2;
uses
SysUtils;
var a, b, c, d : integer;
s : string;
begin
Writeln('Enter 4 digits');
Readln(s);
a:=strtoint(s[1]);
b:=strtoint(s[2]);
c:=strtoint(s[3]);
d:=strtoint(s[4]);
begin
if (a+b)=(c+d) then
Writeln(s[1],'+',s[2],'=',s[3],'+',s[4]) else
Writeln(s[1],'+',s[2],'<>',s[3],'+',s[4]);
Readln;
end;
end.
Рис.1.1 Програма в процесі виконання
2. Для даного 
обчислити значення функції: 
