Question

1. Даны два числа. Если оба кратны 3, то первое уменьшить в два раза.

Free Pascal

 

Answer 1

Var a,b: real;

begin

readln(a,b);

If (a mod 3=0) and (b mod 3=0) then a:=a/2;

writeln(a);

end.