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

Question

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

Comments

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

Answer 1

Var a,b:real;
begin
readln(a,b);
if (abs(a)>b) or (b<0) then<br>begin
a:=a/5;
writeln(a,' ',b)
end
else
writeln(a,' ',b);
end.