Составьте программу произведения первой и третьей и суммы второй и четвертой цифры четырехзначного числа
(Паскаль)

program programma;var a,b,c,d,e,p,s: integer;beginwriteln ('Введите четырехзначное число');readln (a);b:=a div 1000;c:=a div 100;c:=c mod 10;d:=a mod 100;d:=d div 10;e:=a mod 10;p:=b*d;s:=c+e;writeln ('Произведение первой и третьей цифры равно ',p,', сумма второй и четвертой цифры равна ',s);end.