Деление одной переменной на другую, проценты, ограничение вводимых чисел

Program Menu;
VAR ZAL, KAPTOFEL, KYPECA, SHASHLEK, CWEN, reba, te, cofe, moroz, prgWeshna, prgDgem, marmelad, s, s1, s2, sal: integer;
Begin
writeln('Пожалуйста выберите зал. 1-Обычный. 2-Средний. 3-Престижны.');
readln(ZAL);
writeln('Сколько порций картошки?');
readln(KAPTOFEL);
writeln('Сколько порций курицы?');
readln(KYPECA);
writeln('Сколько порций шашлыка?');
readln(SHASHLEK);
writeln('Сколько порций свинины?');
readln(CWEN);
writeln('Сколько порций рыбы?');
readln(reba);
writeln('Сколько чашек чая?');
readln(te);
writeln('Сколько сколько чашек кофе?');
readln(cofe);
writeln('Сколько порций мороженого?');
readln(moroz);
writeln('Сколько пирогов с вишней?');
readln(prgWeshna);
writeln('Сколько пирогов с джемом?');
readln(prgDgem);
writeln('Сколько порций мармелада?');
readln(marmelad);
s1:=KAPTOFEL*150+KYPECA*300+SHASHLEK*100+CWEN*200+reba*70+te*20+cofe*25+moroz*35+prgWeshna*15+prgDgem*50+marmelad*30;
s2:=s1*ZAL;
writeln('Счёт всего столика*: ',s2,' рублей.');
writeln('Чаевые:');
readln(sal);
s:=s2+sal;
writeln('Итог: ',s,' рублей.');
writeln('Для выключения нажмите Enter.');
readln;
End.

var
  s: real;
begin
 s:=10/5;
 writeln(s);
end;

Uses crt;
const Cost_app = 3; Cost_e = 10; Cost_p = 4; { константы цен в ресторане }
var
 zal, choose, much: byte;
 sum: longint;
begin
clrscr;
 
repeat
  write('Выберите зал( всего их три ) :'); readln(zal);
  case zal of
   1: begin
      clrscr;
      writeln('Вы выбрали первый зал:');
      writeln('-----------------------');
      writeln('В ассортименте есть:');
      writeln('1: Панакота');
      writeln('2: Щи');
      writeln('3: Торт');
      writeln('-----------------------');
      writeln('4: Оплатить.');{ нажмите клавишу 4 для выхода, хотя выйти можно и иначе :D }
      sum:=0;
      repeat
       write('Заказывайте:');readln(choose);
      case choose of
        1: begin
            writeln('Сколько Панакот вы желаете :');readln(much);
            much:=much*Cost_app;
            sum:=sum+much;
           end;
        2: begin
            writeln('Сколько Щи вы желаете:');readln(much);
            much:=much*Cost_e;
            sum:=sum+much;
           end;
        3: begin
            writeln('Сколько тортов хотите :');readln(much);
            much:=much*Cost_p;
            sum:=sum+much;
           end;
      end;
      until choose = 4;
      end;
   {аналогично можно написать для 2 и 3 }
   2: writeln('second');
   3: writeln('third');
  end;
until ((zal>=1) and (zal<=3));
 
writeln('Итого ='sum);
 
readln;
end.