Даны целые числа k,m действительные числа x,y,z при km2 заменить модулем соответственно значения x,y,или z а два других значения уменьшить на 0,5 — Pascal(Паскаль)

uses crt;
var k,m:integer;
    x,y,z:real;
begin
clrscr;
writeln('Введите 2 целых числа:');
readln(k,m);
writeln('Введите 3 вещественных числа:');
readln(x,y,z);
if k<m*m then
 begin
  x:=abs(x);
  y:=y-0.5;
  z:=z-0.5;
 end
else if k=m*m then
 begin
  x:=x-0.5;
  y:=abs(y);
  z:=z-0.5;
 end
else if k>m*m then
 begin
  x:=x-0.5;
  y:=y-0.5;
  z:=abs(z);
 end;
write('x=',x:0:2,'  y=',y:0:2,'  z=',z:0:2);
readln
end.