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>
ні........
тому що вони майже однакові, хоча це залежить від формата
Кількість класів, кількість вчителів, мова навчання , кількість кабінетів , кількість учнів, розміри дошки , кількість парт,
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub