помогите пожалуйста информатика

просто прошу, 3 двойки по информатике надо исправлять, а то к экзаменам не допустят!!!

1) var m,n,z,i,b,count: Integer;beginwriteln('Введите кол-во рядов');readln(m);writeln('Введите кол-во мест в каждом ряду');readln(n);writeln('Сколько билетов куплено?');readln(z);for i:=1 to m dobeginfor b:=1 to n dobeginInc(count);end;end;if (z=count) or (z<count) then writeln('Хватит') elseif z>count thenwriteln('Не хватит');end.2) var a,b,c: Integer;beginwriteln('Введите числа a и b');readln(a,b);c:=a+b;if c>10 then begina:=a*5;b:=b*5;end;if (c=10) or (c<10) then begina:=a-5;b:=b-5;end;writeln('a - ',a);writeln('b - ',b);end.3) var x: Real;beginwriteln('Введите x');readln(x);if x<4 then writeln(sqrt(x+1));if x>4 then writeln(2.5*x-2);if x=4 then writeln(3*(x*x)-1);end.