Сделать программу ** Pascal, если a>b, то найти y=a/b, иначе найти y=a*b

Question

Сделать программу на Pascal, если a>b, то найти y=a/b, иначе найти y=a*b

Answer 1

Program wk;
var a,b,y:real;
begin
 readln(a,b);
 if a>b then y:=a/b else y:=a*b;
writeln(y);
end.

Comments

real надо бы

---

Измени integer на real и все.