сделать номер 1 (с решением)

Багато користувачів вважають, що якщо фотографії викладені в мережу, їх автори надали дозвіл на їх вільне використання. Такі міркування є помилковими, та призводять до порушення законодавства України про авторські та суміжні права. Тому важливо знати правила, які охороняють твори та їх авторів від протиправних посягань з боку інших осіб.

Про відповідальність за порушення законодавства про авторські права та захисту своїх прав інтелектуальної власності розповідає фахівчиня Першого одеського бюро правової до Ірина Кисельова.

Одним з поширених порушень авторського права є протиправне розміщення письмового твору автора в мережі Інтернет. Захищати власні права важливо: ставлення до таких кейсів може стати серйознішим, якщо вони частіше будуть з’являтися в інформаційному просторі.

Var a,b,c,d:integer;
begin
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
c:=a;
d:=b;
if a<b then
while b<>1 do
begin
a:=c*a;
b:=b-1;
writeln(a);
end
else
while a<>1 do
beginb:=d*b;
a:=a-1;
writeln(b);
end;
end.

1. запрашиваем первое число
2. получаем первое число
3. запрашиваем второе число
4. получаем второе число
5. приравниваем первое число  некоторой переменной.
6. приравниваем второе число  некоторой переменной.
7. если первое число больше второго то вычитаем из второго числа 1 и при каждом вычитании приравниваем первое число к произведению первого числа на переменную к которой его приравняли. 
выводим результат на экран.
8. если второе число больше первого то вычитаем из первого числа 1 и при каждом вычитании приравниваем второе число к произведению второго числа на переменную к которой его приравняли.  
выводим результат на экран.