Что делает данная программа? program n_1;
var
a: integer;
z: array [1..50] of integer;
begin
for a := 1 to 50 do
begin
z[a] := random(201) - 100;
if z[a] > 0 then
write(z[a],' ');
end;
end

объединение северного и южного египта произошло около 3000 г. до н.э.

иванов - парикмахер

петров - плотник

сидоров - мельник

гришин - почтальон

алексеев маляр

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа