Вводится трехзначное число, найти произведение первой и последней цифры числа. Сделать на Паскале

Скорее всего, вы имеете в виду произведение цифр трехзначного числа.

Тогда вот программа:

Program prim;

Var x, a, b, c, p: integer;

Begin

writeln ('ВВедите трехзначное число');

readln (x);

a:=x div 100; {первая цифра}

b:=x mod 100 div 10; {вторая цифра}

c:=x mod 10; {третья цифра}