Определить следующее четное число, идущее после заданного числа.

var a:integer; 
begin 
writeln('Введите A'); 
read(a);   
repeat    
a:=a+1;   
until (a mod 2=0);   
writeln('Следующее четное число: ',a);   
end.

Например вводим 3, следующее четное после трех - число 4. Программа выводит 4.

Var A:integer;
Begin
WriteLn('Введи целое число');
ReadLn(A);
if A mod 2 = 0 then WriteLn(A+2)
else WriteLn(A+1)
End.

1) 0*2^0+ 1*2^1=0+ 2=2
10 в двоичной=2 в десятичной
1*2^0+ 0*2^1+0*2^3+1*2^4= 1+0+0+16=17
1001 в двоичной=17 в десятичной
1*2^0+0*2^1+1*2^2= 1+0+4=5
101 в двоичной=5 в десятичной
2) а) 11011
1*2^0+1*2^1+ 0*2^2+1*2^3+1*2^4= 1+2+0+8+16= 26
11011 в двоичной=26 в десятичной
1100
0*2^0+0*2^1+1*2^2+1*2^3= 0+0+4+8=12
1100 в двоичной=12 в десятичной
10011
1*2^0+1*2^1+0*2^2+0*2^3+1*2^4= 1+2+0+0+16=19
10011 в десятичной=19 в двоичной
110101
1*2^0+ 0*2^1+1*2^2+0*2^3+1*2^4+1*2^5=1+0+4+0+16=21
110101 в двоичной = 21 в десятичной
б) 7512
2*8^0+1*8^1+5*8^2+7*8^3=2+8+320+3584=3914
7512 в восмеричной=3914 в десятичной
5327
7*8^0+2*8^1+3*8^2+5*8^3= 7+16+192+2560= 2775
5327 в восьмеричной=2775 в десятичной
в) 8E5
5*16^0+14*16^1+ 8*16^2= 5+224+2048= 2277
8E5 в шестнадцатеричной= 2277 в десятичной
ABC
12*16^0+11*16^1+10*16^2= 12+176+2560+2748
ABC в шестнадцатеричной=2748 в десятичной

Не совсем требования к программе понятны. Написал на ПаскальАВС.Нет с использованием функции

var x,y,z:integer;
function ex(x:integer):integer;
begin
if x>0 then result:=2*x
  else result:=x*x;
end;
begin
write('Введите x, y, z: ');
readln(x,y,z);
x:=ex(x);
y:=ex(y);
z:=ex(z);
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.

Вариант без использования функции
var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if x>0 then x:=2*x 
  else x:=x*x;
if y>0 then y:=2*y
  else y:=y*y;
if z>0 then z:=2*z 
  else z:=z*z;
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.