Даны две пары чисел. Определить, будет ли равна сумма одной пары сумме другой.
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
Сумма второй пары чисел больше суммы второй