var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.
Program bip;
var a,q,n:integer;
begin
writeln('введите четыре числа');
readln(a);
q:=0;
n:=1;
while (n<>4) do
begin
if (a>q) then
q:=a;
readln(a);
n:=n+1; end;
writeln('большее из пяти ',q)
;<span>end.</span>
Дисковод - это устройство для считывания дисков (не давно отвечал на другой вопрос по этому на этот отвечать можно будет через 40 сек. ждём )
Блок-схема - в прилагаемом файле.