Program AZS;
uses crt;
var price, amount, p_a: real;
begin
clrscr;
write('BBeDuTe cTouMocTb bEH3uHa 3a 1 JluTp: ');
readln(price);
write('CKoJlbKo JluTpoB lloKyllaeTe? ');
readln(amount);
write('K ollJlaTe ', price*amount, ' pybJleu')
end.
var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
Program BiFi;
Var a,d:real;
Begin
readln(a);
readln(d);
writeln('P=',2*(a+d));
readln;
end.