<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Kirill(r:integer); begin var n:=0; for var i:=1 to 9 do for var j:=0 to 9 do for var k:=0 to 9 do if i+j+k=r then begin Write(i,j,k,' '); n+=1 end; if n>0 then Writeln(NewLine,'Найдено чисел: ',n) else Writeln('Таких чисел не существует') end;
begin var r:=ReadInteger('Введите число R:'); Kirill(r+3) end.