Домашнее задание.

Пользователь вводит номер билета, состоящего из 6 чисел ,необходимо определить,билет счастливый или нет.

 

Program bilet;
const n=6;
var a:array of real;
    i,x,y:real;
begin
writeln('Vvedite chislo chaslivogo bileta');
for i:=1 to n do 

 begin 

 readln(a[i]);
end;
x:=a[1]+a[2]+a[3];
y:=a[4]+a[5]+a[6];
if x:=y then writeln('bilet chastlivuy') else
writeln('bilet ne chactlivuy');
end.