кто у нас Информатики?  исправьте ошибки 1)      if B = 0 then ...

Vasy

кто у нас Информатики?
 исправьте ошибки
1)      if B = 0 then Writeln (Деление на нуль невозможно);
2)      if a > b then max = a else max = b;
3)      if (a>b)  and  (b>0)   then  c:=a+b   else  (‘no’);
4)      if a < b then min := a; else min := b;
5)      if a > b else max: = b then max: = a;
6)      if a>b  and  b>0   then  c:=a+b ;