Получить случайное трехзначное число и вывести через пробел его отдельные цифры.

//Pascal ABC.Net 3.0
var a:integer;
s:string;
begin
randomize;
a:=random(100,999);
str(a,s);
writeln(s[1],' ',s[2],' ',s[3]);
end.