Получилось так, что чертежник, после выполнения данной команды, оказался в исходной точке. прошу прощения, если это не правильный ответ
Windows (3.x, 95, 98, Me, 2000, XP(Pro, Home, MCE), 2003 Server, Vista), Windows Mobile Mac OS ( знаю мало, но юзал Tiger, Pantera) Unix (Linux, OpenBSD, Inferno, Fedora, Mandriva и т. т. д. ) Sun Solaris Symbian
//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=0;var t:=0;
for var i:=1 to 3 do
begin
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Или как в школах учат ->
var a,t:integer;
begin
for var i:=1 to 3 do
begin
a:=0; t:=0;
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.