Ответы и объяснения

Лучший Ответ!
2014-01-16T17:44:28+04:00
Program ravnost;
Var a,b,c:Integer;
Begin
 WriteLn('Введите три числа через пробел: ');
 Read(a,b,c);
 If (a=b) and (b=c) and (c=a)
                        Then writeLn('Числа равны их произведение равно:',a*b*c)                                            Else WriteLn('Числа не равны');
ReadLn;
End.