Var a,b,c,d: Real;
begin
writeln('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
d:=(Power(a,b)*c);
writeln(d);
end.
Boshqa variant yu
{pulsiruyushii ellipse} Program p12_8; Uses graph,crt; var d,m,a,b: integer; Begin D:=detect; Initgraph (d, m, 'c:\lang\tp\bgi\'); a:=150; b:=150; delay(1000); setcolor(14); ellipse(320,240,0,360,a,b); repeat repeat setcolor(0); ellipse(320,240,0,360,a,b); setfillstyle(1,0); floodfill(320,240,0); dec(b); dec(a); setcolor(14); ellipse(320,240,0,360,a,b); setfillstyle(1,14); floodfill(320,240,14); delay(15); until (b=5); repeat setcolor(0); ellipse(320,240,0,360,a,b); setfillstyle(1,0); floodfill(320,240,0); Inc(b); Inc(a); setcolor(14); ellipse(320,240,0,360,a,b); setfillstyle(1,14); floodfill(320,240,14); delay(15); until (b=150); until keypressed; readln; End.