//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
Program qq;
var a,b:integer;
begin
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
if a>b then
writeln(b);
or
writeln(a);
end.
Var
a: array [1..100] of integer;
i: integer;
b: Int64 := 1;
begin
for i := 1 to 100 do
begin
a[i] := random(-2, 20);
write(a[i], ' ');
end;
writeln();
for i := 1 to 100 do
begin
b *= (a[i] < 0 ? abs(a[i]) : 1);
end;
writeln(b <= 100, '(', b, ')');
<span>end.</span>