Как выражение х^2-7х+6 на языке pascal можно записать

sqr(x)-7*x+6 на языке pascal

Program formula; var   x: integer;   p,y: real; begin   write('vvedute x< > 0 -> ');   readln(x);   if x=0 then writeln('x=0 nedopustimo')   else begin       p: = abs(cos(x));       if p=0 then writeln('ln(0) v 4islitele')       else begin           y: =ln(p)/ln(1+sqr(x*x));           writeln('y=',y: 5: 2)       end   end end.

Program treug; var a,b,c: integer; label l1,l2; begin l1: writeln ('укажите стороны треугольника: '); read (a,b,c); if (a< =0) or (b< =0) or (c< =0) then begin  writeln ('проверьте правильность введенных данных'); goto l1; end; if (a=b) and (a=c) and (b=c) then begin writeln ('треугольник с указанными параметрами - равносторонний'); goto l2; end; if (a=b) or (a=c) or (b=c) then begin writeln ('треугольник с указанными параметрами - равнобедренный'); goto  l2; end; writeln ('треугольник с указанными параметрами - разносторонний'); l2: end.