e-olymp

Решение на Pascal

Решение на Pascal с использованием консоли для ввода и вывода.
{ Pascal }
var
a,b:integer;
begin
read(a);
writeln(a div 10,' ',a mod 10);
end.


Решение на Pascal с использованием текстовых файлов для ввода и вывода.
При использовании текстовых файлов ввода и вывода файл ввода  должен иметь имя "input.txt",
файл вивода "output.txt"

{ Pascal }
var
a,b:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a);
writeln(f2,a div 10,' ',a mod 10);
close(f2);
close(f1);
end.