uses crt;
type
data=record
time:0..23;
day:char;
month:1..12;
Year:2000..2100;
end;
pyt=record
napravlenie:char;
end;
poezd=record
kupe:array [1..55] of byte;
plac:array [1..20] of byte;
end;
var
a:data;
b:pyt;
c:poezd;
i,j:byte;

uses crt;
type
bilet=record
den:string;
pynkt:string;
vremya:integer;
kupe:integer;
plac:integer;
end;
var
poezd: array [1..3] of bilet;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Заполним информацию для поезда №',i);
writeln('Введите день отъезда');
readln(poezd[i].den);
writeln('Введите пункт назначения');
readln(poezd[i].pynkt);
writeln('Введите время отъеда');
readln(poezd[i].vremya);
writeln('Введите количество купейных мест');
readln(poezd[i].kupe);
writeln('Введите количество плацкартных мест');
readln(poezd[i].plac);
end;
for i:=1 to 3 do
if (poezd[i].den='Суббота') and (poezd[i].pynkt='Берлин') and (poezd[i].vremya<=22) and (poezd[i].kupe>50) then
writeln ('Вы можете заказать билеты на поезд №',i) else 
writeln('Извините, мы не можем принять ваш заказ, поскольку поезд №',i, 'не удовлетворяет вашему условию');
end.