12 lines
188 B
ObjectPascal
12 lines
188 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;
|
|
writeln(dec);
|
|
writeln(one);
|
|
end. |