Программа находится в фотографии
Я представляю так
var
a, b: integer;
begin
readln(a, b);
if a * b < 0 then begin {условие 1}
a := a * 2; {действие 1}
if a > 0 then {условие 2}
a := -a {действие 2}
else
b := -b; {действие 3}
writeln(a - b); {действие 4}
end
else
writeln(b - a); {действие 5}
end.
Привет, вот это должно подойти, мы в школе делали так
// PascalABC.NET 3.3
begin
var n:=ReadInteger;
var age, edu: integer;
var b:=false;
for var i:=1 to n do
begin
(age,edu):=ReadInteger2;
b:=b or (age in [23..29])and(edu>=5);
end;
if b then writeln('YES') else writeln('NO');
end.
Пример:
<span>3
21 8
40 2
25 4
NO</span>