1. Множество целых чисел от 1 до 3 (ну это совсем легко)
2. Множество трёх самых распространённых видов общественного транспорта (автобус, троллейбус, маршрутное такси)
3. Множество предметов спального белья (простыня, наволочка, пододеяльник)
Обработки информации наверное.
var<span> a, n, rez, i: integer;</span>
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
if<span> a = 0 </span>then<span> rez := 1</span>
else begin
rez := n;
for<span> i := 1 </span>to<span> y - 1 </span>do<span> rez := rez * n;</span>
end;
writeln(rez);
end.
Выдает ошибку в строке:
<span>new(i); i^=3;
</span>Если изменить как 1 и вторую строку, то бишь на <span>new(i); i^:=3;
То выдаёт ответ - <u>3</u>.</span>
Смотри полученные данные и саму гистограмму в прикреплённых картинках.