Дана программа program appl; var c, v: real; {цена и вес яблок} st: real; {стоимость покупки} begin writeln('вычисление стоимости покупки.'); writeln('введите исходные данные: '); write('цена 1 кг яблок (> '); readln(c); write('вес яблок (кг)-> '); readln(v); st : = v * c; writeln('cтоимость покупки: ', st: 6: 2, ' руб'); end. что такое writeln('cтоимость покупки: ', st: 6: 2, ' руб');

Это вывод на экран переменной st - стоимость покупки 
С - задает цену за 1 кг
V - задает сколько всего кг будет купленно
Потом все это перемножаем и заносим в переменную st и ее выводим ее на экран

Вроде так:

var b, c: integer;
begin
  Writeln('Введите ваш возраст');
  Readln(b);
  if b <= 0 then WriteLn('Вам 0 лет')
      else begin
         c := b mod 100;
         if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
         else
            case (b mod 10) of
               1: WriteLn('Вам ', b, ' год');
               2..4: WriteLn('Вам ', b, ' года');
               5..9, 0: WriteLn('Вам ', b, ' лет')
              end;
   end;
 Writeln('Для выхода нажмите <Enter>');
 Readln;
end.

Рисунок во вложении. Вместо номеров с 1 по 7 надо вписать следующее:
1. "Раздели монеты на кучки 2 + 2 + 1 и положи на весы две первые кучки (по одной кучке на каждую чашечку)"
2. "Весы в равновесии?"
3. "Монета из третьей кучки - золотая"
4. "Возьми монеты из той кучки, что тяжелее, и положи их на весы (по одной на каждую чашечку)"
5. "Левая монета тяжелее?"
6. "Монета на левой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"
7. "Монета на правой чашечке - золотая. Возьми её и купи почтальону Печкину велосипед"