Не видно, там текст размытый и ничего не видно, попробуйте скопировать текст
program dds;
const n =10;
var a:array[1..n]of integer;
i,o,z,x,h:integer;
begin z:=0;
for i:=1 to n do begin a[i]:=random(10)-5;
write(a[i]:4);end;writeln;
write('vvedite H');
readln(H);
for i:=h+1 to n do begin if a[i]<0
then a[i]:=0; if a[i]>0 then z:=z+1;end;
for i:=1 to n do write(a[i]:4);writeln;
write('chishel=',z);readln;
end.
Перефиферия это дополнтительные устройства как принтер, сканер. про них можете написать реферат
Var v,n,d:integer;
begin
v:=650;
write ('Введите количество дней: ');
readln (n);
for d:=1 to n do v:=v-5*d;
if v>0 then writeln ('Через ', n,' дней бабушка обнаружит ',v, ' граммов варенья в банке')
else writeln ('Через ', n,' дней бабушка обнаружит пустую банку')
end.
var a,b,c,d;integer;
begin
readln(a,b);
c:=a+b;
d:=a*b;
writeln('сумма',c);
writeln('произведение',d);
end.
это для паскаля