Я столкнулся с этой проблемой:
Fatal: синтаксическая ошибка, ";" ожидается, но "." нашел в конце программы.
program odin;
uses crt;
var res,ans:byte;
begin
clrscr;
writeln('Загружаю названия ресторанов поблизости...');
delay(5000);
writeln('Список ресторанов:');
delay(1000);
writeln('1.McSonalds');
delay(1000);
writeln('2.KDC');
delay(1000);
writeln('3.Wobulimans');
delay(1000);
writeln('4.Homelytown');
delay(5000);
writeln('Выберите интересующий вас ресторан: ');
readln(res);
if (res=1) then
begin
writeln('Здравствуйте. Это ресторан - McSonalds .');
writeln('М Е Н Ю:');
writeln('1.Суп <<Импровизация>>');
writeln('2.Чай <<Быстрый>>');
writeln('3.Кофе <<Лаваццо>>');
writeln('4.Салат <<Вашингтон>>');
writeln('Выберите интересующее вас блюдо: ');
readln(ans);
delay(1000);
writeln('Загружаю КБЖУ...');
delay(4000);
readln;
case ans of
1: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 230');
writeln('Белки: 10');
writeln('Жиры: 45');
writeln('Углеводы: 43');
readln;
end;
2: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 13');
writeln('Белки: 0');
writeln('Жиры: 0');
writeln('Углеводы: 3');
readln;
end;
3: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 45');
writeln('Белки: 3');
writeln('Жиры: 5');
writeln('Углеводы: 7');
readln;
end;
4: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 147');
writeln('Белки: 10');
writeln('Жиры: 34');
writeln('Углеводы: 28');
readln;
end;
end;
if (res=2) then
begin
writeln('Здравствуйте. Это ресторан - KDC .');
delay(4000);
writeln('М Е Н Ю:');
delay(1000);
writeln('1.Суп <<Кипиш>>');
writeln('2.Чай <<Супер>>');
writeln('3.Кофе <<Якоб>>');
writeln('4.Салат <<Нью-Йорк>>');
delay(4000);
writeln('Выберите интересующее вас блюдо: ');
readln(ans);
delay(1000);
writeln('Загружаю КБЖУ...');
readln;
delay(4000);
case ans of
1: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 180');
writeln('Белки: 10');
writeln('Жиры: 38');
writeln('Углеводы: 57');
readln;
end;
2: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 13');
writeln('Белки: 0');
writeln('Жиры: 1');
writeln('Углеводы: 3');
readln;
end;
3: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 53');
writeln('Белки: 7');
writeln('Жиры: 5');
writeln('Углеводы: 3');
readln;
end;
4: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 120');
writeln('Белки: 10');
writeln('Жиры: 43');
writeln('Углеводы: 19');
readln;
end;
end;
if (res=3) then
begin
writeln('Здравствуйте. Это ресторан - Wobulimans .');
delay(4000);
writeln('М Е Н Ю:');
delay(1000);
writeln('1.Суп <<Вулкан>>');
writeln('2.Чай <<Спокойный>>');
writeln('3.Кофе <<Мачи-коро>>');
writeln('4.Салат <<Саймон>>');
delay(4000);
writeln('Выберите интересующее вас блюдо: ');
readln(ans);
delay(1000);
writeln('Загружаю КБЖУ...');
readln;
delay(4000);
case ans of
1: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 230');
writeln('Белки: 8');
writeln('Жиры: 78');
writeln('Углеводы: 13');
readln;
end;
2: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 10');
writeln('Белки: 0');
writeln('Жиры: 0');
writeln('Углеводы: 4');
readln;
end;
3: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 45');
writeln('Белки: 12');
writeln('Жиры: 5');
writeln('Углеводы: 10');
readln;
end;
4: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 134');
writeln('Белки: 10');
writeln('Жиры: 45');
writeln('Углеводы: 43');
readln;
end;
end;
if (res=4) then
begin
writeln('Здравствуйте. Это ресторан - Homelytown .');
delay(4000);
writeln('М Е Н Ю:');
delay(1000);
writeln('1.Суп <<Сырный>>');
writeln('2.Чай <<Крепкий>>');
writeln('3.Кофе <<Красный закаm>>');
writeln('4.Салат <<Ностальгия>>');
delay(4000);
writeln('Выберите интересующее вас блюдо: ');
readln(ans);
delay(1000);
writeln('Загружаю КБЖУ...');
readln;
delay(4000);
case ans of
1: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 340');
writeln('Белки: 13');
writeln('Жиры: 35');
writeln('Углеводы: 23');
readln;
end;
2: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 0');
writeln('Белки: 0');
writeln('Жиры: 5');
writeln('Углеводы: 3');
readln;
end;
3: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 50');
writeln('Белки: 10');
writeln('Жиры: 25');
writeln('Углеводы: 19');
readln;
end.
4: begin
writeln('КБЖУ(100г продукта):');
writeln('Калорийность: 210');
writeln('Белки: 10');
writeln('Жиры: 45');
writeln('Углеводы: 54');
readln;
end;
end;
end.
Я только начинающий, поэтому, пожалуйста, помогите мне.