Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
Во вкладке «Главная» меню Word есть раздел «Абзац», войдя в который, настраивают все абзацные параметры. В этом окне настраиваются отступы первой строки или всего текста, междустрочные интервалы.
Всего 1508 цифр. начинаем с 4. тогда будем считать количество однозначных, двухзначных и трёхзначных номеров у страниц.
5, 6, 7, 8, 9 - всего 5, тогда 1508 - 5 = 1503 стр. не указал 4, так как на ней начинается первая глава. её и добавим с главами в конце.
теперь ряд 10, 11, 12 .. 97, 98, 99, в котором 90 двухзначных чисел, тогда
1503 - 90*2 = 1503 - 180 = 1323.
так как в ряду 100..999 много чисел, то просто разделим 1323 на 3 и получим 441.
теперь считаем
441(трёхзн) + 90(двухзн) + 5(однозн) + 3(нач) + 1(кон) + 6(главы) = 546 страница в книге.
Для этого используй тип string,то есть строка
program znanija;
var n:string;
k:string;
s:string;
begin
write('Введите название фильма : ');
readln(n);
writeln('Введите название кинотеатра : ');
readln(k);
writeln('Введите время : ');
readln(s);
writeln('Билет на ', n , ' в ', k , ' на ', s , ' забронирован. ');
end.
Введите название фильма : Лига Справедливости
Введите название кинотеатра : Луксор
Введите время : 21:40
Билет на Лига Справедливости в Луксор на 21:40 забронирован.