Нужно составить схему алгоритм Ввести число. Если количество его разрядов меньше пяти, то вывести его на экран, дописав нули перед числом так, чтобы в итоге получилось пять знаков. Если количество разрядов больше пяти, то вывести только первые пять разрядов. Если число пятизначное, то вывести его как есть
const
D = 5;
var
a,b: longint;
n,diff: integer;
begin
write('a = '); readln(a);
b := a;
n := 0;
if b = 0 then n := 1;
while b > 0 do begin
b := b div 10;
n := n + 1;
end;
diff := D-n;
if diff > 0 then begin
while diff > 0 do begin
write('0');
diff := diff - 1;
end;
writeln(a);
end
else begin
if diff < 0 then begin
b := a;
while diff < 0 do begin
b := b div 10;
diff := diff + 1;
end;
writeln(b);
end
else
writeln(a);
end;
readln;
end.
