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

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.

Var
a, b: real;
begin
write('Введите 2 числа: ');
readln(a, b);
if a = b then a := a * b
else a := a / b;
writeln(a);
end.