Где здесь ошибка: long double g = 0hff1205;

Long double g=off 1205

Const q1 = -500; const q2 = 600; var kr7,kr3, z: integer; k, h : integer; beginh : = q1; while h < q2 dobeginkr7 : = h mod 7; if (h > 0) and (kr7 = 0) then  begink : = k +1; writeln('число кратных ', h); end; h : = h +1; end; writeln('число кратных положительных ', k); h : = q1; k: =0; while h < q2 dobeginif (h < 0)   then  beginz: = z + h; kr3 : = z mod 3; if (kr3 = 0)   then  begink : = k +1; writeln('число кратных ', z); end; end; h : = h +1; end; writeln('число кратных 3 отрицательных ', k); end.

Var a,b,c,i,sum,cp: integer; begin sum: =0; cp: =0; randomize; writeln('посчитайте сложение: '); while i< 10 do begin a: =random(40)+10; b: =random(60)+10; sum: =a+b; write('сколько будет ',a,'+',b,'= '); read(c); if c=sum then  begin cp: =cp+1; writeln('молодец! '); end else writeln('неправильно'); i: =i+1; end; writeln('всего правильных ответов ',cp); write('оценка: '); if (cp< =4) then write(' плохо (2)') else if (cp> =5) and (cp< =6) then write('удовлетворительно (3)') else if (cp> =7) and (cp< =8) then write('хорошо (4)') else if (cp> =9) then write('отлично! (5)'); end.