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>
1. 1) 10 элементов, вещественный тип
2) 11 элементов, целочисленный тип
2. а) a: array[0..7] of integer
б) a: array[5..24] of integer
3. Будет напечатано: 14 8
Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.