// PascalABC.NET 3.0, сборка 1128
begin
var n:=ReadInteger('Введите трехзначное натуральное число:');
var k:=ReadInteger('Задайте число k:');
var n1:=n div 100;
var n3:=n mod 10;
var n2:=(n div 10) mod 10;
var t:=(n2+n35);
Writeln('t=',t)
end.
Тестовое решение:
Введите трехзначное натуральное число: 613
Задайте число k: 5
t=True