Мадана это медведь на юге
цифро-буквенная (символьные) - печать символов и цифр;
функциональная - клавиши F1...F12;
клавиши для управления курсором - иными словами стрелочки;
доп. клавиши (NUM LOCK) - Печать цифр или управление курсором;
служебные (специальные) - запрограммированы на какие-либо действия или на изменение действий других клавиш (Alt, Ctrl, Shift, TAB, Win, Scroll Lock, Pause и т.д.).
Var c,i:integer;
function sov(k:integer):boolean;
var j,s:integer;
begin
result:=false;
s:=0;
for j:=1 to k div 2 do if k mod j=0 then s:=s+j;
if s=k then result:=true;
end;
begin
read(c);
i:=1;
while (sov(c+i)=false) and (sov (c-i)=false) do i:=i+1;
if sov(c+i)=true then writeln(c+i) else writeln(c-i)
<span>end.</span>
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==