Question

Даны 2 числа.Если они равны,то найти их произведение,иначе-частное

Answer 1

var x,y,p,t:real;
begin
read (x,y);
if x=y then p:=x*y else t:=x/y;
writeln(p,t);
end.

Answer 2

Я уже не в том возрасте

Answer 3

школе