Miért nem jó ez a pascal kód?

program Pelda12a;

uses crt;

var i,b:integer;

begin

writeln('meddig számolja a számok négyzetét? ');

readln(b);

for i:=1 to b do

begin

writeln(i,' negyzete = ',i*i);

end;

Readln;

end.

Képernyőtörlés deklarálás elé fölösleges?Mit törölsz?

Writelen-nél nem kell a b csak utána.

Kedves utolsó igazad van, de akkor a readln(b) és a for ciklus közé kell a képernyőtörlés és akkor csak a "felsorolást" írja ki.

1. és 2.

Helyes megoldás:

Program rafihelp;

uses crt;

var z,i,b,o :longint;

begin

z:=2+z;

clrscr;

writeln('Meddig számolja a számok négyzetét?');

readln(b);

for i:=1 to b do

begin

o:=i;

o:=z*i;

writeln('Négyzet',o);

end;

readkey;

end.

Ha valakinek kéne :). Üdv rafi1017

Helyes megoldás:

Program rafihelp;

uses crt;

var z,i,b,o :longint;

begin

z:=2+z;

clrscr;

writeln('Meddig számolja a számok négyzetét?');

readln(b);

for i:=1 to b do

begin

o:=i;

o:=o*i;

writeln('Négyzet',o);

end;

readkey;

end.

Ha valakinek kéne :). Üdv rafi1017