Сделать данную программу в 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.

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.    

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.