А) (п ^ в ^ с)-><span>ж
б)(т(отр.) v д(отр.)^ л)-></span><span>л(отр)
-> если что, это стрелка
</span>
Var i,n,k:integer;
begin
writeln('i':4,'i*i':6);
for i:=1 to 10 do begin
n:= i * i;
writeln(i:4,n:5);end;
<span>end.</span>
uses crt;
var kletka,i,vremya:integer;
begin
kletka:=1;
write ('vvedite vremya');
read(vremya);
vremya:=vremya div 5;
for i:=1 to vremya do
kletka:=kletka*4;
write ('kletok stanet- ',kletka);
end.