1)<span>а)ввод/вывод
2)</span><span>б) справочник</span>
Var a,b:longint;beginreadln(a,b);writeln(a+b);writeln(a-b);writeln(a*b);
end.
Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>