Const n=5;
var a:array[1..n,1..n+1] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i+1 do a[i,j]:=j+i-1;
for j:=n-i+2 to n+1 do a[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to n+1 do write(a[i,j]:2);
writeln;
end;
end.
Результат:
1 2 3 4 5 0
2 3 4 5 0 0
3 4 5 0 0 0
4 5 0 0 0 0
5 0 0 0 0 0
Вроде так
Интерне́т — всемирная система объединённых компьютерных сетей для хранения и передачи информации. Часто упоминается как Всемирная сеть и Глобальная сеть, а также просто Сеть. Построена на базе стёка протоколов. На основе Интернета работает всемирная паутина и множество других систем передачи данных
Var
a, b, c: real;
k := 0;
begin
readln(a, b, c);
k := k + integer(b * b - 4 * a * c >= 0);
k := k + integer(a * a - 4 * b * c >= 0);
k := k + integer(a * a - 4 * c * b >= 0);
writeln(k);
end.