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.