Определите сумму четырехзначного числа в программе турбо паскаль

123456789101112131415uses crt; var a,b,c,d,s1,s2,t: integer; k: boolean; begin clrscr; write ('Введите четырех значное число: '); readln (t); a: =t div 1000; b: =(t mod 1000) div 100; c: =(t mod 100) div 10; d: =t mod 10; s1: =a+b; s2: =c+d; k: =s1=s2; writeln (k); readlnend.