Функції

program p12;

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.

program p44;

uses crt;

var x,c1,c2,c3,p:integer;

BEGIN

read(x);

c1:=x div 100;

c2:=x div 10 mod 10;

c3:=x mod 10;

p:=c1*c2*c3;

if x mod p =0 then writeln('yes') else writeln('no');

END.