Составьте программу, которая генерирует случайное четырёхзначное число от 1000 до 9999 (номер автобусного билета), выводит его на экран и определяет, является ли билет "счастливым" (сумма первых двух цифр равна сумме последних двух цифр). ПАСКАЛЬ

program Bilet;

var k1,k2,k3,k4,n: integer;

begin

n := Random (9000)+1000;

Writeln (n);

k1 := n div 1000;

n := k - 1000*k1;

k2 := n div 100;

n := k - 100*k2;

k3 := n div 10;

n := k - 10*k3;

k4 := n;

if (k1+k2) = (k3+k4) then

Writeln ('Счастливый билет!!!');

end.