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

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 (a>b) and (a>c) then writeln (' max= ',a:0:2);     If (b>a) and (b>c) then writeln (' max= ',b:0:2);     If (c>a) and (c>b) then writeln (' max= ',c:0:2);     Readln End. И наконец то 3. Я не могу вспомнить подходящие команды, ошибки одни выдает. Надеюсь я тебе чем-то помог)))