Найдите пару

• Объекты 1

  • program w;
    var a,b,s: integer;
    begin
    writeln \('введите слагаемые'\);
    readln \(a,b\);
    s:=a+b;
    if s mod 2 = 0 then
    writeln\('да'\) else writeln\('нет'\);
    end.
  • program w;
    var a,b,s: integer;
    begin
    writeln \('введите слагаемые'\);
    readln \(a,b\);
    s:=a+b;
    writeln\('сумма чисел = ',s\);
    end.
  • program w;
    var i,s: integer;
    begin
    s:=0;
    For i:=2 to 5 do
    s:=i+s;
    writeln\('ответ:', s\);
    end.

• Объекты 2
  *