Помогите написать программу на Паскале

[sandzhi]

Помогите написать программу на Паскале

Выручайте!!!помогите написать прог. в ПАСКАЛЕ

задание. Составить програму решения заданых задач.

Даны действительные числа x,y. если х и у отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения не отрицательны и ни одно из них не пренадлежит отрезку [0,5; 2], то оба значения уменьшить в 10 раз; в остальных случаях и оставить без изменения.

 

[AlexZir]

program calc;
var x,y:real;
begin
writeln('введите значения x, y);
readln(x,y);
if ((x<0) and (y>=0)) or ((x>=0) and (y<0)) {проверка если только одно число отрицательное}
then begin x:=x+0.5; y:=y+0.5; end else
if (x<0) and (y<0) {проверка 2-х отрицательных}
then begin x:=abs(x); y:=abs; end else
if ((x<0.5) and (x>=0) or (x>2)) and ((y<0.5) and (y>=0) or (y>2)) {проверка 2-х положительных не из отрезка}
then begin x:=x/10; y:=y/10; end;
writeln ('x=',x,'y=',y);
readln;
end.