Var x, b, a, c :real;beginread(a, b, c);x:= 1.2;x:= b + -sqrt(sqr(b))- 4*a*c/2*a;writeln(x);end.
Program adidos;
var X2,Y2,R:real;
begin
writeln('Введите X2 и Y2');
readln(X2);
readln(Y2);
R:=(X2+Y2)/2;
writeln('R=',R);
end.
Const
N = 8;
var
a: array[1..N] of integer;
p: integer;
i: byte;
begin
writeln('Введите массив из ', N, ' элементов');
i := 0;
p := 1;
while i < n do
begin
i := i + 1;
read(a[i]);
if a[i] <> 0 then p := p * a[i];
end;
writeln('Отредактированный массив');
i := 0;
repeat
i := i + 1;
if a[i] < 0 then a[i] := p;
write(a[i], ' ');
until i >= n;
end.
Вроде как является пиксель