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

uses Robot;

begin

Field("Своё значение", "Своё значение")

И ставить неизвестные значения

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Пример программы с использованием данной функции:

Program Example;
Var a, b: Integer;

Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
    If b > a Then
    Begin
        tmp := a;
        a := b;
        b := tmp;
    End;
    tmp := a;
    While tmp > 0 Do
    Begin
        Result := tmp;
        tmp := tmp - b;
    End;
End;

Begin
    Write('a = ');
    ReadLn(a);
    Write('b = ');
    ReadLn(b);
    Write('НОД: ', NOD(a, b));
    ReadLn;
End.

а) “наличия аттестата о среднем образовании достаточно для поступления в институт”; нет
б) “наличие аттестата о среднем образовании необходимо для поступления в институт”; да
в) “если целое число делится на 6, то оно делится на 3”; да
г) “подобие треугольников является необходимым условием их равенства”; да
д) “подобие треугольников является необходимым и достаточным условием их
равенства”; нет
е) “треугольники подобны только в случае их равенства”; нет
ж) “треугольники равны только в случае их подобия”; да
з) “равенство треугольников является достаточным условием их подобия”; да
и) “для того, чтобы треугольники были неравны, достаточно, чтобы они были
неподобны”; да
к) “для того, чтобы четырёхугольник был квадратом, достаточно, чтобы его диагонали
были равны и перпендикулярны”.нет