Ввести три числа четные числа возвести в квадрат не четные оставить без !

Var
  i:integer;
  a:array[1..3] of integer;
begin
  Write('Введите три целых числа: ');
  Read(a[1],a[2],a[3]);
  for i:=1 to 3 do begin
    if a[i] mod 2=0 then a[i]:=sqr(a[i]);
    Write(a[i],' ')
    end
end.

Пример выполнения
Введите три целых числа: 17 -8 14
17 64 196

Var a,b,c:integer;begin Read(a,b,c);If a mod 2=0 thena:=a*a;If b mod 2=0 thenb:=b*b;If c  mod 2=0 thenc:=c*c;Writeln(a,' ',b,' ',c)end.