С клавиатуры вводится трехзначное число. Найти произведение цифр числа; разделить 1 цифру числа на 3 цифру и вывести результат( в паскале)

Программа на паскале внизу

это на первуюprogram chislo; var a,b,c,k,x: integer;Begin Writeln('Введите трехзначное число:'); readln(x); a:=x div 100;  b:=x mod 100 div 10; c:=x mod 10; k:=a*b*c; writeln('произведение чисел = ',k); readln;End.Вторая Задачаprogram chislo; var a,c,x: integer; k:real;Begin Writeln('Введите трехзначное число:'); readln(x); a:=x div 100; c:=x mod 10; k:=a/c; writeln('деление чисел = ',k); readln;End.