Question

Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( СРООООЧООООООО ПЖЖЖ )

Answer 1

Var
A.b:integer;
Begin
Readln(a.b);
If a+b>100 then
Writeln(a-20,' ',b-20)
Else
Writeln(a,' ',b)
End.
Это изи