Помогите, пожалуйста!!!! Паскальдано четырехзначное число, заменить нулем максимальную...

Question

Помогите, пожалуйста!!!! Паскаль
дано четырехзначное число, заменить нулем максимальную цифру

Comments

вводила программу, он ошибку выдаетvar s,d,e,b:real; a:integer;beginwrite ('vv 4-h znachnoe chislo');read (a);b:=a/1000; s:=a/100 mod 10;d:=a/10 mod 10;e:= a mod 10;write (a,b,c,d,e);end.

---

что не так?

Answer 1

Uses crt;
var a:integer;
b:array[1..4] of integer;
max,i,k,t:integer;
begin
readln(a);
k:=1;
repeat
for i:=k to k do
b[i]:=a mod 10;
a:=a div 10;
inc(k);
until a=0;
max:=0;
for i:=1 to 4 do
if b[i]>max then begin max:=b[i]; t:=i; end;
b[t]:=0;
for i:=4 downto 1 do
write(b[i]);
end.