Программы которыми пользоваться бесплатно можно ограниченное, создателем программы, количество времени.
Var
a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(100)+1
if ((i mod 2)=0) then write(a[i]," ");
end;
end.
Program asdas;
Uses crt;
var ves:real; //real- ибо нужно допустить вес в 3,5 тонны как пример
begin
readln (ves);
if ves<15
then writeln ('недогруз')
else if ves>30
then writeln ('норма');
end.
uses crt;
var x, y, a:real;
begin
read(x, y);
a:=(sqrt((abs(x))+(abs(y))));
a:=a/(sqrt(x*x+1));
writeln(a);
end.