Дано двузначное число. найти сумму и произведение его цифр

  program kugjmgv;

uses crt; var a,a1,a2: integer; begin

clrscr; write('введите двузначное число: '); readln(a); a1: =a div 10; a2: =a mod 10; writeln('сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.

uses crt; var a,a1,a2: integer; beginwrite('введите двузначное число: '); readln(a); a1: =a div 10; a2: =a mod 10; writeln('сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

program xxx;

  s : string;

  a : integer;

begin

    writeln('введите строку символов: '

    readln (s);

    a: = length(s);  

    if a mod 2= 0 then writeln ('четное') else writeln('не четное');

    readln;

end.