A basic Pascal program. ";" expected but "identifier READLN" found

[clinomania]

Program math;
uses CRT;
var 
a, n, i:Integer;

begin
clrscr;
i:=0;
n:=0;
writeln('Write a number. Number>100 ends the calculation.')
**readln(a);**
                        
while r<100 do begin
             i:=i+1;
             if a>0 then i:=i+1;
             if a<0 then n:=n+1;
             write('Write a number')
             readln(a);
             end;

writeln;
writeln;
writeln;('i= ',i);
readln;
end.

[ArielLeslie]

It’s telling you that you are missing a semicolon (;) on this line:

writeln(‘Write a number. Number>100 ends the calculation.’)