Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
<span>Они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.</span>
Var
a,b:integer;
begin
Write('Введите два трехзначных числа: '); Readln(a,b);
Write('Результат: ',1000*a+b)
end.
<u>Тестовое решение:</u>
Введите два трехзначных числа: 165 718
Результат: 165718