Помощь

[AleksGr]

помогите пожалуйста: укажите на ошибку

var z,x:integer;
var c,v:real;
begin
writeln('Введите 3-х значные числа');read(z,x);
c:=z;
v:=x;
if (z div 10 mod 2=0) or (x div 10 mod 2=0)
then begin sqr(c); sqrt(v) end
else begin sqrt(c); sqr(v) end;
write(c,' ',v);
end.

[p51x]

sqr и sqrt это функции, которые возвращают результат