Var
i,n:integer;
begin
readln(N); {вводим N}
For i:=1 to n do
write(Random(100),' '); {выводим псевдослучайные числа в диапазоне [0; 100) }
end.
Ваш IP-адрес (если вы откроете я н д е к с и введете туда Ваш Ipv4 И IPV6 он покажет ваш IP)
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
Потому-что все будут видеть и читать мою страничку