Wenn man beispielsweise sowas hat:

For B:=1 To 9 Do

Begin

writeln ('Zahl:' ,N,' Quadr:',N*N);

end;

End.



ich versteh das gar nicht!!!