Lösung 1

For L:=1 To 40 Do
Begin
X:=1+L×0.05;
WriteLn(X:10:4,X×X:10:4);
End;

Lösung zu Aufgabe 1: Wenn die Schleife von L:=0 bis 40 läuft, wird die Umrechnungsformel von L in X einfacher: X:=1+L×0.05