Var
x,max:real;
n,i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
begin
write('Введите число ',i,': ');
readln(x);
if x<0 then
begin
if max=0 then max:=x; // если это первое отр.число
if x>max then max:=x
end
end;
writeln('Наибольшее среди отрицательных: ',max)
<span>end.</span>
Dim a as double
dim n as double
dim c as double
a=(textbox1.text)
n=(textbox2.text)
c=(a+1)n
(textbox3.text)=c
Begin
for var i:=1 to 21 do
if (i mod 2 = 1) then
print(i);
end.
begin
for var i:=60 downto 10 do
if (i mod 2 = 0) then
writeln(i)
end.
var a,b: integer;
begin
readln(a,b);
for var i:=b downto a do
print(i*i*i);
end.
111111110,,,,,,,,,,,,,,,,,,,,,
Думаю, что это КОЛОНКА.... или ДИНАМИК или НАУШНИК...