ответ Счастливого плавания
Ответ: 11,12,13,14,15,16,17
program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
Var i:integer;
begin
for i:=10 to 99 do
if (i mod 7=0) then writeln(i);
end.