Помогите написать в Pascal.
Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения

1
даны два числа, если первое больше второго по модулю или второе число отрицательное, необходимо уменьшить первое число в пять раз, иначе числа оставить без изменения

Ответы и объяснения

2014-02-23T10:52:04+00:00
Var a,b:real;
begin
readln(a,b);
if (abs(a)>b) or (b<0) then
begin
a:=a/5;
writeln(a,' ',b)
end
else
writeln(a,' ',b);
end.