Skip to content

Instantly share code, notes, and snippets.

@libbkmz

libbkmz/0.pas

Created October 2, 2014 19:29
Show Gist options
  • Save libbkmz/2125ce894dbccac83b41 to your computer and use it in GitHub Desktop.
Save libbkmz/2125ce894dbccac83b41 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
0.pas
program HelloWorld(output);
var
i: integer;
N: integer;
K: integer;
begin
N:= 103;
K:= 20;
i:=N;
while i >= (N-K) do begin
writeln(i);
i := i - 1
end
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment