Даны 4 числа a b c d если а+d>c+d то выводим a+b (Паскаль срочно )

Question

Даны 4 числа a b c d если а+d>c+d то выводим a+b (Паскаль срочно )

Answer 1

Var a,b,c,d:integer;
begin
readln(a);
readln(b);
readln(c);
readln(d);
if a+d>c+d then writeln(a+b);
end.

Comments

Ты где так долго был ?

---

можно еще перед readln добавить строчки writeln('введите а');

---

так получилось

---

и конец можно переделать if... writeln(a+b) else writeln(здесь то, что будет выведено при не выполнении условия);