Используя команды цикла, запишите программу закрашивания 6-ти клеток вправо от Робота, считая, что изначально Робот находится у левого края поля.​

я не помню как писать правильный алгоритм для робота, а так

повторить 6 раз

вправо

закрасить

иииииииииииииииипмм

Объяснение:

самаааккнроор

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.