Если х единица выводим x (на экране будет 1)
если x двойка выводим x+1 (на экране будет 2)
иначе читаем(вводим) m
конец.
1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.
После строки uses Robot нужно поставить ;
Т.е. первая строка должна иметь вид uses Robot;
Файл во вложениях. И на будущее, указывайте язык программирования.
p.s. комментарии и некоторый текст на русском языке, который не отобразился:
//k - количество положительных чисел
//n - количество чисел
writeln('Количество положительных чисел: ', k, '.');
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
ReadInteger('n->').ToString.JoinIntoString(' ').ToIntegers
.Where(t -> t mod 4 = 0).Sum.Println;
end.