Να τροποποιήσετε τον κώδικα ώστε, να δίνει τα ίδια αποτελέσματα με τη χρήση των εντολών for
athroisma: =0; metritis :=0; while metritis < 10 do begin athroisma:=athroisma + metritis; writeln(metritis:10,athroisma:10); metritis:= metritis + 1; end;
program erwtisi; var athroisma,metritis: integer; begin athroisma:=0; for metritis:=0 to 9 do begin athroisma:=athroisma+metritis; writeln(metritis:10, athroisma:10); end; end.
program erwtisi; var athroisma,metritis: integer; begin athroisma:=0; for metritis:=1 to 10 do begin athroisma:=athroisma+metritis; writeln(metritis:10, athroisma:10); end; end.