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

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.

Comments

извиняюсь writeln (p,t);

---

спасибо том126666

---

за помощь

---

Не ха что. Отличных оценок тебе в школе

---

Ага

---

И тебе !

---

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

---

что бы учиться в шкодле

---

школе

---

Ясно

Answer 2

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