program pp;
var a, b, c, d, e, f, g, h:integer;
procedure proc();
begin
call write(1);
end;
begin
a :=0;
b :=1;
c :=2;
d:=3;
e:=4;
f:=5;
g:=6;
h:=7;
c := a+b;
call
program pp;
var n,p:integer;
procedure p1(n:integer; var p:integer);
begin
p:=0;
repeat
begin
n:=n+1;
p:=p+1;
end
until(n>=10)
end;
begin
call read(n);
c
program pp;
var n,p:integer;
var a:array [1..8] of integer;
procedure p1(n:integer; var p:integer);
var i:integer;
begin
p:=0;
for i:=1 to n
do
p:=p+1;
end;
begi
program pp;
var a, b, c, d, e, f, g, h:integer;
procedure proc();
begin
call write(1);
end;
begin
a :=0;
b :=1;
c :=2;
d:=3;
e:=4;
f:=5;
g:=6;
h:=7;
c := a+b;
call
program pp;
var n,p:integer;
procedure p1(n:integer; var p:integer);
begin
p:=0;
repeat
begin
n:=n+1;
p:=p+1;
end
until(n>=10)
end;
begin
call read(n);
c
