INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
var so := a.Where(p -> p.IsOdd).Sum;
for var i := 0 to a.High do
if a[i] mod 3 = 0 then
a[i] := so;
a.Println
end.
Var i,k, max, N: integer;
a: array[1..300000] of integer;
Begin
read(N);
for i:=1 to N do
read(a[i]);
max := a[1];
for i := 2 to N do
if a[i]>max then begin
max:= a[i];
end;
write(max);
End.
1) блок ввода-вывода
2) блок вычислений
3) блок начала алгоритма
4) проверка условий
Var
a,b,i,j,c:integer;
begin
writeln('Vvedite a:');
readln(a);
writeln('Vvedite b:');
readln(b);
writeln('Stepeni chisla: ',a);
for i:=1 to b do
begin
c:=1;
for j:=1 to i do
c:=c*a;
writeln(c);
end;
end.