15 пояснение в скрине так остальное в комментариях
Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.
От 0 до 8(включительно)
0 1 2 3 4 5 6 7 8 - 9 цифр
var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
var
s : integer;
m : BigInteger;
begin
m := 1;
write('даны числа:');
for var i := 1 to 20 do begin
write(' ', i);
s := s+(i*i);
m := m*(i*i);
end;
writeln(#13, 'сумма квадратов ', s, #13, 'произведение квадратов ', m);
end.