Нужна помощь с информатикой.

1.a)При А=0, В=0 выражение ложно. 
Выполним действия по порядку:
1) B=0 истина
2) Not(истина) =ложь
3) (А=0) истина
4) истина and ложь =ложь
5) not(a=0) =ложь
6) ложь and истина = ложь
7) ложь or ложь = ложь
Б)При А=0, В=1 выражение истинно.
Так дальше 2, на 100 не уверен в правильности, так как это было в 8 классе. 
Program prim_2;
Var a,b,c:real;
Begin
    Write(введите три числа);
    Readln(a,b,c);
    If (agt;b) and (agt;c) then writeln ( max= ,a:0:2);
    If (bgt;a) and (bgt;c) then writeln ( max= ,b:0:2);
    If (cgt;a) and (cgt;b) then writeln ( max= ,c:0:2);
    Readln
End.
И наконец то 3. Я не могу вспомнить подходящие команды, ошибки одни выдает. Надеюсь я тебе чем-то помог)))