PASCAL ABC Информатика

1.Линейная операция
S=1/2
read (a, b)
P=a+b+c
read(a, b, c)


2)Условный оператор
Дано 2 числа a и b Если a>b, то возвести в квадрат
if -условие >this<оператор>


3)Дано 3х значное число. Определить какой разряд больше старший или младший и вывести это разряд.
var x, x1, x2, x3:integer;
begin
read(x)
x3:=x mod 10;
x:=x dir 10;
x2:=x mod 10;
x1:=x dir 10;
if x1>x3 then writch (x1)
else writeln(x3) ;
end.

4)задача на цикл
Пользователь вводит натуральное число n . Рассчитать сумму, либо (количество) четных (нечётные могут быть, в данном случае эта программа относится к чётным) цифр в числе
Программа:
var s, n, digit:integer;
begin
read(n) ; s:=0;
while n>0 do
begin
digit:=n mod 10;
if digit mod 2=0
then s:=s+digit
n:n div 10
end;
write(s) ;
end.
Помогите пожалуйста, договоримся :>