tEK

PROGRAM ODEV;

USES CRT;

VAR i,j: INTEGER;

SIRA: ARRAY [0..4] OF INTEGER;

BEGIN

CLRSCR;

WRITELN('BES ADET TAM SAYI DEGERI GIRINIZ.');

FOR i:= 0 TO 4 DO

BEGIN

READLN(SIRA[i]);

END;

FOR i:=0 TO 4 DO

BEGIN

IF SIRA[i] MOD 2 = 0 THEN

BEGIN

WRITELN((SIRA[i]/2):4:2);

END

ELSE

BEGIN

WRITELN((SIRA[i]+1):4);

END;

END;

FOR i:= 0 TO 4 DO

BEGIN

WRITELN(I,'.ELEMAN=',SIRA[i]);

END;

FOR j:= i+1 TO 4 DO

BEGIN

WRITELN(I,'.ELEMAN=');

END;

READLN;

END.