t11_for.pas 77 B

1234567
  1. program t11;
  2. var
  3. i : integer ;
  4. begin
  5. for i := 1 to 10 do
  6. i := i
  7. end.