);
writeln (ma1 [1], '|', smeshgen1, '|', ma2);
writeln ('B у розширеній точності');
writeln (mb1 [1], '|', smeshgen2, '|', mb2); ('');;: = false;
avto: = false;; ('Програма виконує переклад чисел у формат'); ('розширеної точності, і їх множення'); ('Приклад впроваджуються даних: 22; 22.333;'); ( 'Введіть число А:');
Readln (vvS); (vvS, zs1, ch1s1dv, ch1s2dv, nast1);
write ('Введіть число B:');
readln;.
