Программа Паскаль.

1 программа:

begin
  WriteLn(1+2+3+4+5+6+7+8+9+10+11+12+13+14+15);
end.

2 программа:

var Name : String;
begin
  Write('Имя вашего друга: '); ReadLn(Name);
  WriteLn(Name, #32, Name, #32, Name, #32, Name, #32, Name, #32, Name, #32, Name, #32, Name);
end.

3 программа:

begin
  WriteLn(2+4+6+8+10+12+14+16+18+20);
end.

4 программа:

begin
  WriteLn(90*(10+99)/2);
end.

5 программа:

var Name : String;
begin
  Write('Любимый предмет: '); ReadLn(Name);
  WriteLn(Name, #32, Name, #32, Name, #32, Name, #32, Name);
end.

6 программа:

begin
  WriteLn(2475);
end.

Циклы никто не просил, да они нам и не нужны :)

begin writeln(15*14 div 2); readln end.

begin writeln('Hi Hi Hi Hi Hi Hi Hi Hi Schwarzenegger'); readln end.

begin writeln((2+20)div 2*10); readln end.

begin writeln((99+10)*(99-10+1)div 2); readln end.

begin writeln('Информатика Информатика Информатика Информатика Информатика'); readln end.

begin writeln((99+11)div 2*(5*9)); readln end.

двести пятьдесят

1000 рублей

с program
var
begin
end сама справишься
1. sum:=0;
for i:=1 to 15 do sum:=sum+i;
writeln("сумма натуральных чисел от 1 до 15 - ", sum);
3.sum:=0;
for i:=1 to 20 do if i mod 2=0 then sum:=sum+i;
writeln("сумма четных чисел от 1 до 20 - ", sum);
4.sum:=0;
for i:=10 to 99 do sum:=sum+i;
writeln("сумма двузначных чисел - ", sum);
6.sum:=0;
for i:=10 to 99 do if i mod 2=1 then sum:=sum+i;
writeln("сумма нечетных двузначных чисел - ", sum);