Question

Решить на языке паскаль!!!!!
Дано пятизначное число 
1)зачеркнуть последнюю цифру
2)зачеркнуть первые 2 цифры
3)зачеркнуть предпоследнюю цифру 
4)зачеркнуть три последние цифры
ЧИСЛО 53714
пОМОГИТЕ ПЛИЗЗЗ

Answer 1

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.