Домашнее задание.
Пользователь вводит номер билета, состоящего из 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.