// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var k:=ReadInteger('Начальное значение (К):'); var n:=ReadInteger(' Конечное значение (N):'); var notfound:=True; for var i:=k to n do begin var flag:=True; var j:=2; var r:=round(sqrt(i)); while flag and (j<=r) do if i mod j = 0 then flag:=false else j+=1; if flag then begin var s:=i.ToString; if s=s.Inverse then begin Print(i); notfound:=False end end end; if notfound then Writeln(0) end.
2. Глагол, наречие, прилагательное, причастие, союз, существительное.
3. Вычитание, деление, сложение, умножение.