01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / ILYICH3

var
 a,b,c,d,e,f:real;
 begin
 writeln('‚ўҐ¤ЁвҐ «оЎ®Ґ ваҐе§­ з­®Ґ зЁб«® :');
 read(a);
 b:=a/100;
 b:=trunc(b);
 writeln(b:1:0);
 d:=(a-b*100)/10;
 d:=trunc(d) ;
 writeln(d:1:0);
 c:=(a-b*100-d*10);
 c:= trunc(c);
 writeln(c:1:0);
 writeln(c:1:0,d:1:0,b:1:0);
    e:= sqr(c+d*10+b*100);
    writeln(e);
    f:= exp(3*ln(c+d+b));
    writeln(f);
   if e=f  then writeln('TRUE') else  writeln('FALSE');
 end.