Program linFun; {название программы}
var
y,x:integer; {переменные}
begin {начало}
readln (x); {мы вводим любое число}
y:=1+x+x*x; {уравнение}
writeln (y); {компьютер выводит ответ}
readln; {чтобы программа ждала нажатие клавиши enter}
end. {конец}
P.S. коментарии в { } можно и написать, а можно и опустить. Комп их всё равно не видит, а вот учитель...
Уравнение будет иметь 4 решения.Это видно из рисунка
<span>Степь, или безлесая равнина, простиралась до самого горизонта </span>
<span>Бегемот, или гиппопотам, любит сидеть подолгу в воде. </span>
<span>Часто встречаются леса чёрного тополя, или осокоря, как говорят местные жители.</span>
Методом проб и ошибок:
Дина подружилась с Аней;
Она удивилась, узнав что Борис брат Анны;
Гриша дружит с Борисом и Васей
Аня - туризм
Боря - Рисование
Вася - Танцы
Гриша - футбол
Дина - пение
Var i, s: integer;
a: array[1..10] of integer;
begin
for i := 1 to 10 do begin
a[i] := random(10) - 5;
if(a[i] < 0) and (i mod 2 = 0) then s := s + a[i];
write(a[i]:3);
end;
writeln(#10, 'Сумма отрицательных элементов: ', s);
<span>end.</span>