var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.
Попытайся просто создать новую папку и перетащить туда презентации.
Если презентации тебе не нужны,то удали их просто нажав правую кнопку мыши и "удалить".
Program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
<span>end.
</span>