<u>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
procedure Print60(c:char);
begin
Write(60*(c+NewLine))
end;
// Тестовый вызов
begin
Print60(ReadlnChar)
end.
Var numb,sot,des,ed:integer;
begin
readln(numb);
sot:=numb div 100;
des:= numb mod 100;
des:= des div 10;
ed:= numb mod 10;
writeln(sot,' ',des,' ',ed);
end.