Сделать данную программу в Pascal ABC ** основе if then else. Мои попытки ниже ...

Question

Сделать данную программу в Pascal ABC на основе if then else.
Мои попытки ниже
------------------------
var a,b,c:real;
begin;
write('Введите 3 числа=');
read(a,b,c);
if (a=b) and (b=c) and (c=a) then writeln('Все числа одинаковы');

if (a<>b) and (b=c) and (c=b) then writeln('2 числа одинаковых');
if (a<>c) and (c=b) and (b=c) then writeln('2 числа одинаковых');
if (b<>c) and (c=a) and (a=c) then writeln('2 числа одинаковых')
end.

---

Answer 1

Var
  a,b,c:real;
begin;
  Write('Введите 3 числа='); Read(a,b,c);
  if (a=b) and (a=c) then Writeln('Все числа одинаковы')
  else
    if (a=b) or (a=c) or (b=c)  then Writeln('2 числа одинаковых')
    else Writeln('Все числа различны')
end.

Answer 2

Var a,b,c:real;
begin;
write('Введите 3 числа = ');
read(a,b,c);

writeln;
if (a=b) and (b=c) then writeln('Все числа одинаковы');
if ((a<>b) and (b=c)) or ((a<>c) and (a=b)) or ((b<>c) and (c=a)) then writeln('2 числа одинаковых');
if ((a<>c) and (c<>b) and (a<>b))  then writeln('Нет одинкаовых чисел');

end.