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

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.

знаки той же арифметики, если эмоции- те же смайлики.

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c