Определить, будет ли равна сумма одной пары сумме другой — Pascal(Паскаль)

Даны две пары чисел. Определить, будет ли равна сумма одной пары сумме другой.

Uses crt;
Var
a,b,v,t,u,i : Integer;
begin
 Writeln ('Введите первую пару чисел:');
 Write ('Первое число:');
 Readln (a);
 Write ('Второе число:');
 Readln (b);
 v:=a+b;
 Writeln ('Введите вторую пару чисел:');
 Write ('Первое число:');
 Readln (t);
 Write ('Второе число:');
 Readln (u);
 i:=t+u;
 if (v=i) then Writeln ('Они равны.');
 if (v>i) then Writeln ('Сумма первой пары чисел больше суммы второй.');
 if (v<i) then Writeln ('Сумма второй пары чисел больше суммы второй.');
end.

Тестирование https://www.onlinegdb.com/online_pascal_compiler

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                   
Copyright (c) 1993-2012 by Florian Klaempfl and others                                                         
Target OS: Linux for x86-64                                                                                    
Compiling main.pas                                                                                             
Linking a.out                                                                                                  
19 lines compiled, 0.2 sec                                                                                     
/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?                                
Введите первую пару чисел:                                                                                     
Первое число:1                                                                                                 
Второе число:2                                                                                                 
Введите вторую пару чисел:                                                                                     
Первое число:3                                                                                                 
Второе число:1                                                                                                 
Сумма второй пары чисел больше суммы второй    

Поделитесь своим мнением или задайте вопрос