1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
crt;
var
i,n: integer;
fact: longint;
begin
readln(n);
if n< 0 then writeln('г”г*гєгіг®г°гёг*г«г* г®гіг°гёг¶г*гігґг«гјг*г®гјг® г·гёг±г«г* г*гґгі')
else if n=0 then writeln('г”г*гєгіг®г°гёг*г«: =',1)
else if n> 0 then
begin
fact: =1;
for i: =1 to n do
begin
fact: =fact*i;
end;
writeln('г”г*гєгіг®г°гёг*г« ',n,': =',fact);
end;
readkey
end. и так далее как вы знаете там проверка и дальше точно так же
begin
readln(numb1,numb2);
if (numb1 mod 10 = numb2 div 100) then
writeln(numb1*3,' ',numb2*3)
else
writeln(numb1/numb2);
end.