Скласти алгоритм створення проект реєстраційної форми на подорож містами Европи, у якій турист може вказати відомасті:персональний код кліента;орiєнтовний місяць запланованої подорожі; кількість днів у подорожі; кількість осіб, що подорожуватиму ть разом із ним; тип харчування 0, 5 - сніданок або вечеря; 1, 0 триразове харчування; 1, 5 п'ятиразове харчування

Вот так лучше и работает правильно:

var
a: integer;

begin
writeln('Введите номер дня недели');
read(a);
if (a < 1) or (a > 7) then
Write('Ошибка')
else
begin
if a = 1 then
writeln('Понедельник') ;
if a = 2 then
writeln('Вторник') ;
if a = 3 then
writeln('Среда') ;
if a = 4 then
writeln('Четверг') ;
if a = 5 then
writeln('Пятница') ;
if a = 6 then
writeln('Суббота') ;
if a = 7 then
writeln('Воскресенье') end ;
end.

А ещё лучше подобные задания через оператор case делать:

var
n: Integer;

begin
Write('Введите номер дня недели: ');
readln(n);
case n of
1: WriteLn('понедельник');
2: WriteLn('вторник');
3: WriteLn('среда');
4: WriteLn('четверг');
5: WriteLn('пятница');
6: WriteLn('суббота');
7: WriteLn('воскресенье') else Write('ошибка');
end;
end.

Использовать Чертежник
алг
нач
| 4. Используем вспом. алгоритм
Четыре
| 2
сместиться на вектор (1,3)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
поднять перо
| 0. Исп. вспом. алгоритм и цикл
нц 3 раз
Ноль
кц
| 4
Четыре
кон

алг Ноль
нач
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (2,0)
сместиться на вектор (0,-4)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (2,0)
кон

алг Четыре
нач
сместиться на вектор (1,4)
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (0,2)
опустить перо
сместиться на вектор (0,-4)
поднять перо
кон