Паскаль 1) Ввести четырехзначное целое число. Вычислить произведение чисел,…

1) uses crt; var a,b,p: integer; beginreadln (a); a: =a div 10; a: =a mod 100; b: =a mod 10; a: =a div 10; p: =a*b; writeln (p); end.2) uses crt; var a,i,n,b,p: integer; s,s1: string; begins1: ='; readln (s); n: =pos ('.',s) -1; for i: =1 to n dos1: =s1+s[i]; a: =StrToInt (s1); n: =length (s) -n+1; s1: ='; for i: =n to length (s) dos1: =s1+s[i]; b: =StrToInt (s1); p: =a*b; writeln (p); end.