проверьте правильно ли написана программа в паскале!!! пожалуйста!!!

На 1 взгляд вроде все правильно. А она говорит, какой оператор ожидается, и какую строчку она считает 12?
Если считать с пустыми - то это
else writeln('vse 3 4isla raznie');
А если считать только строки с текстом - то это
else writeln('ni odnogo 4etnogo');

Может, она считает, что оператор if кончается строкой then, а else уже как бы другой оператор должен быть?
Тогда, может быть написать слова begin после строки if и end после строки else?
А может быть, не ставить точку с запятой в конце строки then?

в строке then writeln('kakie-to dwa 4isla odinakovi!'); убрать ;

и так во всех строках с then

а кто учил перед else ставит точку с запятой? и операции типа mod и div применимы только к целочисленным типам.

var

a,b,c:integer;

begin
writeln('vvedite tri 4isla');
readln(a,b,c);

if (a=b) or (a=c) or (c=b)
then writeln('kakie-to dwa 4isla odinakovi!')
else writeln('vse 3 4isla raznie');

if (a mod 2 =0) or (b mod 2 =0) or (c mod 2=0)
then writeln('hotya bi odno 4islo 4etnoe')
else writeln('ni odnogo 4etnogo');

if (a+b mod 2 =0) or (a+c mod 2 =0) or (b+c mod 2 =0)
then writeln('odna para daet v summe 4etnoe 4islo')
else writeln('ni odna para ne daet v summe 4etnoe 4islo');
readln;
end.

Если хочешь использовать и риал и мод, то придется округлять числа с помощью round(x)

Точка с запятой в середине предложения, перед else и дает ошибку.

убери точку с запятой в конце каждой строки, которая начинается на "зен"