[Habetdin]

Код:

program Park;
var
r1,r2,rez: integer;
i,o: text;
begin
assign(i,'input.txt');
assign(o,'output.txt');
reset(i);
read(i,r1,r2);
close(i);
// Как дальше?
rez:=Ri(0,