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

Pascal

var a,b,c,d,s,n:integer;

begin

writeln('Введите 4-ехзначное число');

readln(n);

a:= n div 1000;

b:= n mod 100 div 10 ;

c:= n mod 10 ;

d:= n div 100 mod 10;

s:=a*b*c*d;

writeln(s);

end.

begin

 var chislo:=ReadInteger('Введите число: ');

 Println('Произведение 3 и 4: ', (chislo mod 100 div 10)*(chislo mod 10));

 Println('Сумма 1 и 2: ', (chislo div 1000)+(chislo div 100 mod 10));

end.