program raf105;
var x,y: integer;
begin
x:= 13;
y:= 2;
while y < 12 do
if y<=x
then begin
x:= x-3;
y:= y*2;
end
else begin
y:= y-3;
x:= x*y;
end;
writeln(x);
end.
program raf105;
var x,y: integer;
begin
x:= 13;
y:= 2;
while y < 12 do
if y<=x
then begin
x:= x-3;
y:= y*2;
end
else begin
y:= y-3;
x:= x*y;
end;
writeln(x);
end.
PascalABC 3.4.2