В первом задании:
1)Он просит ввести два значения, b и c
2)Идет подстановка в формулу дискриминанта, которая записана в переменную d
3)Вывод ответа, чему равен x1 и x2
Второе задание:
Write() выводит сообщение, Writeln() выводит сообщение и переносит на строчку вниз следующее.
1234
56
78
Третье:
Просит ввести два числа и потом как бы вывод а,b,a, но дело в том что переменные объявлены как integer, то есть целые числа, а значит 2.0 не прокатит ибо это число с плавающей точкой, другой тип данных и на выходе программы будет ошибка
Program pbc;
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
<span>end.</span>
Как-то так, если не так то извини
2 в седьмой степени равно 128, N=128