Ответ:
Потом сигнал светофора переключился, плотный ряд автомобилей чуть подвинулся вперёд, и момент для поворота был уже безвозвратно упущен.
Var
a, i: integer;
begin
a:=0;
i:=10;
repeat
if ((i mod 3) = 0) then
a:=a+1;
i:=i+1;
until i = 100;
writeln(a);
<span>end.</span>
Var P,L,W,S:Real;
Begin
Read(P);
W:=P/2;
L:=P+20;
S:=L*W;
Writeln('S = ',S:0:0);
end.
Uses Drawman;
begin
Task('a2');
ToPoint(3,2);
PenDown;
OnVector(2,2);
OnVector(-4,2);
PenUp;
OnVector(7,-1);
PenDown;
OnVector(-3,-1);
OnVector(2,-3);
PenUp;
ToPoint(0,0);
<span>end.
uses Drawman;
begin
Task('a3');
ToPoint(2,1);
PenDown;
OnVector(4,0);
PenUp;
OnVector(-3,1);
PenDown;
OnVector(0,3);
PenUp;
OnVector(1,-1);
PenDown;
OnVector(5,-1);
PenUp;
ToPoint(0,0);
<span>end.</span></span>