Две задачи (работа в Pascal)

1) Ввести 3 числа ABC и определить равны ли веденные числа

2) Ввести 3 числа ABC и определить среднее из них

1)

Program abc;

var a, b, c:integer;

Begin

writeln ('Введите числа') ;

readln (a, b, c) ;

if (a=b) and (b=c) then

writeln ('Равны')

else

writeln ('Не равны') ;

end.

2)

Program abc;

var a, b, c:integer;

x:real;

Begin

writeln ('Введите числа') ;

readln (a, b, c) ;

x: = (a+b+c) / 3;

writeln (x) ;

end.