1. Оформление рабочего стола.2 ярлыки, папки , файлы расположенные на робоч столе .3 дата, изготовление раб стола.4имя пользователя , работающего с РС
Дом-стоит,карандаш-рисует' на столе едят,дерево растёт
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);<span>
end.</span>
Program z;
var a,i:integer; max:real;
begin
max:=0;
i:=0;
repeat writeln('Введите число'); read(a);
max:=max+a;
i:=i+1;
until a=0;
writeln('Сумма =',max);
writeln('Средние значение =',max/i);
<span>end.</span>