бялялжсоядмщыдмщажжпза

program konfety;   
    var t: real;       
         i: integer;        
begin
    WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
    Read(t);
    for i := 1 to 10 do
        WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.

Смысл такой:  - цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .

WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

Далее идет цикл , который по сути вот что делает: 
Для каждого целого i от 1 до 10 сделай вот что:
    Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t

После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.

А дальше у нас end (последний end. всегда с точкой).

Конец.

1)

program gt1;

var x,y:real;

begin

x:=-3.1;

while x<1 do

begin

x:=x+0.1;

y:=4*x*x*x-2*x*x+5;

writeln(y);

end;

end.

2)

program gt2;

var k,i:integer;

begin

k:=0;

for i:=11 to 20 do

begin

if(i mod 2=1)then k:=k+1;

end;

writeln(k);

end.

3)

program gt3;

var s,i:integer;

begin

s:=0;

for i:=1 to 100 do

begin

if(i mod 2=0)then s:=s+i;

end;

writeln(s);

end.

4)

program gt4;

var sum,a:real;

i,n:integer;

begin

   sum:=0;

   a:=0;

   readln(n);

   for i:=1 to n do begin

   a:=1/((3*n-2)-(3*n+1));

   Sum:=sum + a;

   n:=n+1;

   end;

    write(sum);

end.

5)

program gt5;

var n,k:integer;

begin

k:=0;

while n>0 do

begin

n:=n div 10;

k:=k+1;

end;

writeln(k);

end.