t04_var.pas 66 B

1234567
  1. program t04;
  2. var
  3. x : integer;
  4. begin
  5. x := 1;
  6. writeln(x)
  7. end.