1) program z1;
uses crt;
var a: integer;
begin
clrscr;
repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);
a:=a div 10;
Writeln (a);
Readkey;
End.
2) program z2;
uses crt;
var a: integer;
begin
clrscr;
repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);
a:=a mod 1000;
Writeln (a);
Readkey;
End.
3) program z3;
uses crt;
var a, b: integer;
begin
clrscr;
repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);
b:=a mod 10;
a:=a div 100;
Writeln (a, b);
Readkey;
End.
4) program z4;
uses crt;
var a: integer;
begin
clrscr;
repeat write('enter a: '); readln(a) until (a>=10000) and (a<=99999);
a:=a div 1000;
Writeln (a);
Readkey;
End.