Написать программу на Pascal:
Найти значение выражения x^2-7x+6 для x от 1 до 7.

Var x:integer;beginfor x:=1 to 7 do  writeln(x*x-7*x+6);end.

Var x,y:integer;beginreadln(x);if (xgt;1) and (xlt;7) theny:=sqr(x)-7*x +6;writeln(Значение выражения: ,y);end.