Дано двухзначное число, написать в паск: 1.Число десятк. в нем, 2.Число единиц в нем, 3.Сумму его цифр, 4произв. его цифр.

Вся программа помещается в одну строку.

var a,b,c:integer; begin readln(a); b:=a div 10; c:=a mod 10; writeln(b:3,c:3,b+c:3.b*c:3); readln end.