Răspuns:
5.
var i, n : integer;
rez : real;
begin
rez:=1;
write('Introduceti un numar mai mic ca 100: ');readln(n);
if n<100 then begin
for i:=1 to n do rez:=rez*i;
writeln(rez);
end else writeln('Numarul introdus este mai mare sau egal cu 100!');
end.
6.
var a, b, i : integer;
begin
write('Introduceti a si b: ');readln(a,b);
write('Divizori comuni: ');
for i:=1 to a+b do
begin
if (a mod i=0) and (b mod i=0) then write(i,' ');
end;
end.
