написати програму яка визначить добуток крайних цифр чотиризначного числа.

var x1,x2,y,p:integer;beginwrite('Введите четырехзначное число: ');readln(y);x1:=y div 1000;x2:=y mod 10;p:=x1*x2;writeln('Произведение крайних цифр: ',p) end.