Задачі на обчислення значення функцій

Складіть програму, яка обчислює значення y  для будь-якого дійсного X, що введено з клавіатури.

program p45;

uses crt;
    Var x,y:real;
begin
  write('x=');read(x);
  if x<5 then y:=(4*sqr(x)+1)/(x-5)
         else y:=3*sqr(x)-2;
  Writeln(y:1:2);
end.

1. Введення числа x.
2. Обчислення c1,c2,c3 цифр числа n.
3. Обчислення значення p.
4. Перевірка, якщо введене число x кратне обчисленому значенню p, то надрукувати 'yes', в іншому випадку надрукувати 'no'

program proba;

uses crt;
 Var  x,a,b,c,p:integer;
  BEGIN
  read(x);
  a:=x div 100;
  b:=x div 10 mod 10;
  c:=x mod 10;
  p:=a*b*c;
  if x mod p =0 then writeln('yes') else writeln('no');
END.

Ввід	Відповідь
112	yes
122	no