Var a,b,c:integer;
BEGIN
readln(a,b,c);
writeln(Ваше число равняется );
writeln(b);
END.
Я так понял
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.