Напишите программу , которая вычисляет значение выражения у=х2-3х+9

Program znanija; var y,x: integer; begin writeln('введите значение х! '); readln(x); y: =(x**x)+9; writeln('при х=',x,', y=',y); end.

Pascal: var x,y: integer; begin readln(x); writeln(y: =sqr(x)-3*x+9); readln; end.

Настольные, ноутбуки, нетибуки(кстати я на нем сейчас пишу), планшетные, игровые приставки, карманные, настольные миникомпьютеры. настольные - это большие. состав: монитор, клавиатура, системный блок. можно подключить принтер, колонки, сканеры и т.д. ноутбуки -  плоские, переносные. все это вместе и монитор и клавиатура и системный блок. нетбуки - маленькие ноутбуки. дешевее чем ноутбук, легче. планшетные - имеют сенсорный экран. маленькие. карманные - как планшетные. но можно носить даже в карманах. игровые приставки - как компьютер но можно подключить к телевизору. =)=)=)!

Var a: array[1..18] of integer; i: integer; begin randomize(); write('исходный массив: '); for i: = 1 to 18 do     begin       a[i]: =-40 + random(121);       write(a[i], ' ');   end; writeln(); write('элементы, состоящие из одинаковых цифр: '); for i: = 1 to 18 do   if (a[i] mod 10 = a[i] div 10 ) then       write(a[i], ' '); end. пример: исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20 элементы, состоящие из одинаковых цифр: 77 -22 22