var
a, b: longint;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if b > a then
writeln(a, ' ', b)
else
writeln(b, ' ', a)
end.
Тусирип жверси информатикадан жаксы блем
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
N:10 for(i 1 ;i больше n ;i++) A[n+1 i больше ] 2* A[i]