Вывести первые 3 цифры числа Паскаль

Question

Дима · Accepted Answer

var
 a : array [1..3] of word;
 i : byte;
 
procedure change(var num : word);
begin 
 while num > 10 do
 num := num div 10
end;
 
begin
 for i := 1 to 3 do
 begin
 write('введите ', i, ' число: ');
 readln(a[i]);
 change(a[i])
 end;
 for i := 1 to 3 do writeln(a[i])
end.

Павел · Answer

блин можно болия грамотно вот саме перше прышно в голову ето
var a:string;
begin
readln(a);
write(a[1],a[2],a[3]);
readln();
end.

ето роздробелия а можно ставыть параметры пры выводе тойесть a:3:0
3 ето вроде чысла до комы и 0 чысла после комы или наоборот)