Вопрос Помогите в паскаль!

{program p2; var x: integer; begin x:= 1000 + random (9000); writeln (x); x:= ((x mod 1000) div 10) mod 10 + (x mod 1000) div 100; writeln (x); end.} {program p1; begin writeln (120+random(21)*3); end.}

решение на Turbo Pascal 7.0 (Pascal ABC) {program p2; var x: integer; begin x:= 1000 + random (9000); writeln (x); x:= ((x mod 1000) div 10) mod 10 + (x mod 1000) div 100; writeln (x); end.} {program p1; begin writeln (120+random(21)*3); end.}

[THIDE="0"]var a,b,c,d:integer;
i:integer;
label loop;
begin
loop:
randomize;
write('input = ');
readln(i);
if (i>=1000) and (i<=9999) then
begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;

writeln('number: ',i,' |1dig: ',a,'|',' |2dig: ',b,'|',' |3dig: ',c,'|',' |4dig: ',d,'|');
writeln('sum 2+3dig: ',b+c);
end
else
begin
writeln('Enter 4digit number');
goto loop;
end
end.[/THIDE]