15 lines
236 B
ObjectPascal
15 lines
236 B
ObjectPascal
var a,dec,hun,one:integer;
|
|
begin
|
|
writeLn('Ââĺäčňĺ ÷čńëî');
|
|
writeln;
|
|
readln(a);
|
|
one:=a mod 10;
|
|
a:=a div 10;
|
|
dec:=a mod 10;
|
|
a:=a div 10;
|
|
hun:=a mod 10;
|
|
a:=a div 10;
|
|
writeln(hun);
|
|
writeln(dec);
|
|
writeln(one);
|
|
end. |