Написать программу на 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 (x>1) and (x<7) theny:=sqr(x)-7*x +6;writeln('Значение выражения: ',y);end.

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