program whileloop;
var
x:integer;
answer:string;
num:integer;
begin
num:=12345;
writeln('type "12345" if you would like to see nubers squaring up to 4096');
readln(answer);
if answer = num then
begin
writeln('press enter to see the numbers');
readln;
end;
else begin
x:=0;
end;
x:=1;
while x < 4097 do
begin
writeln(x,' squared is now ',x*x);
x:=x+1;
end;
writeln;
readln;
end.
this is the error i keep getting: whileloop.pas(29,2) Fatal: Syntax error, ";" expected but "ELSE" found
and also: whileloop.pas(23,14) Error: Incompatible types: got "LongInt" expected "AnsiString"
var
x:integer;
answer:string;
num:integer;
begin
num:=12345;
writeln('type "12345" if you would like to see nubers squaring up to 4096');
readln(answer);
if answer = num then
begin
writeln('press enter to see the numbers');
readln;
end;
else begin
x:=0;
end;
x:=1;
while x < 4097 do
begin
writeln(x,' squared is now ',x*x);
x:=x+1;
end;
writeln;
readln;
end.
this is the error i keep getting: whileloop.pas(29,2) Fatal: Syntax error, ";" expected but "ELSE" found
and also: whileloop.pas(23,14) Error: Incompatible types: got "LongInt" expected "AnsiString"