1. Використовуючи дані таблиці

Блюдо Ціни
борщ 35
котлета 40
каша 20
чай 3
Визначити загальну вартість обіду в їдальні. Визначити, у скільки разів зросте вартість обіду, якщо ціна котлети
збільшиться вдвоє ?
2. Задана вага в грамах. Визначити вагу в тоннах і кілограмах.
Вхідні данні: 1200645 г
Вихідні данні: 1200 кг 645 г
1 т 200 кг 645 г
3. Відомий обсяг інформації в байтах. Перевести в кілобайти,
мегабайти.(Використати функцію pow() та round(a,2)- функція
округлення числа а з двома числами після коми)
Вхідні данні: 12345
Вихідні данні: 12.06 кілобайт
0.01 мегабайт
4. Визначити значення функції z = 1 / (x*y) при x і y, що не
дорівнюють нулю.(Використати функцію round(a,2)- функція
округлення числа а з двома числами після коми)
Вхідні данні: х=12
у= - 5
Вихідні данні: 0, 02

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так

24 * 32 = 768 символов на 1 странице

768 * 12 = 9216 символов на 1 странице

9216 * 1 = 9216 байт в буклете

9216 * 8 = 73728 бит в буклете