Var
x, y: integer;
begin
//вводим x и y
readln(x);
readln(y);
//проверяем x
if (x >= 0) and (x<=20) then
writeln('X принадлежит')
else
writeln('X не принадлежит');
//проверяем y
if (y >= 0) and (y<=20) then
writeln('Y принадлежит')
else
writeln('Y не принадлежит');
<span>end.</span>
Max = A
if B > Max then Max = B
if C > Max then Max = C
Или по-другому
if (A>B) and (A>C) then Max = A
if (B>A) and (B>C) then Max = B
if (C>B) and (C>A) then Max = C
Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>
Не зависит от типа компьютера