Определить, является ли трамвайный билет счастливым? счастливым будем считать такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр. паскаль

Var n,n1,n2,s1,s2:integer;
begin
write('n = '); readln(n);
n1:=n div 1000;
n2:=n mod 1000;
s1:=n1 div 100+(n1 div 10 mod 10)+n1 mod 10;
s2:=n2 div 100+(n2 div 10 mod 10)+n2 mod 10;
if s1=s2 then writeln('Билет счастливый')
 else writeln('Билет не счастливый');
end.

Пример 1:
n = 156309
Билет счастливый

Пример 2:
n = 762453
Билет не счастливый

Program lucky;
var
n,l,r: integer;
begin
writeln('введите номер билета');
readln(n);
l := (n div 100000) + (n mod 100000 div 10000) + (n mod 100000 mod 10000 div 1000);
r := (n mod 100000 mod 10000 mod 1000 div 100) +(n mod 100000 mod 10000 mod 1000 mod 100 div 10) + (n mod 100000 mod 10000 mod 1000 mod 100 mod 10);
if l == r then
writeln('ваш билет счастливый')
else
writeln('ваш билет не счастливый');
end.

1 Копируйте таблицу в excel Выделяете таблицу и щелкаете по кнопке диаграмма на панели инструментов расположение диаграммы всё это на этом листе Создаёте диаграмму щеку по кнопке готова уберите рамку вокруг диаграммы скопируйте диаграмму и вставьте её в документе Word Типы данных так как Excel программа работает сейчас и таблицами то здесь оперирует различными данными в экранных таблицах используют как правило следующие типы данных текст это любая последовательность символов число это Числовая константа это формула это выражение состоящая из числовых величин и арифметических операций пример опять разделённое ньютонов 8× 12 Функция это запрограммированное формулы позволяющая проводить часто встречающиеся последовательности вычислений например функция авто суммирования может быть представлена следующим образом сумму а один а четыре логический значение даты и время Сортировка данных расположение данных в определённом порядке Ключ Сортировка имя поля по которому проводится по Сортировке

Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.