Студэнt //PascalABC
{1} //факториал
var prod, n: integer;
begin
prod:=1;
readln (n);
for var i:=1 to n do prod:=prod*i;
write (prod)
end.

{2}
var n, min, i: integer;
begin
readln (min);
for i:=1 to 9 do
begin
readln (n);
if n<min then min:=n;
end; 
write (min);
end.

{3}
var sum, count, a: integer;
begin
sum:=0; count:=0; a:=0;
repeat
readln (a);
inc (count);
inc (sum, a);
until a=0;
write (sum/(count-1))
end.

{4}
uses Crt;
var x, y: integer;
begin
repeat
gotoXY(1, 1); 
clearline;
write ('x ='); readln (x);
clearline;
write ('y ='); readln (y);
gotoXY (x, y); write ('#');
until (x=0) and (y=0);
end.