Розв`язок мовою 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.