Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
//прога на Pascal`e
var
n, sum: int64;
begin
write ('Введите число n: ');
readln (n);
n:=abs (n);
sum:=1;
while n>0 do
begin
sum:=sum*(n mod 10);
n:=n div 10;
end;
write ('Произведение цифр числа n: ', sum);
end.
Program OddNumeric;
var
n, i: integer;
a: array [1..3] of byte;
b: boolean;
begin
Write('Введите трехзначное число: ');
Readln(n);
a[1]:=n div 100; {1 цифра сотен}
a[2]:=(n div 10) mod 10; {2 цифра десятков}
a[3]:=n mod 10; {3 цифра количество единиц}
b:=false;
for i:=1 to 3 do
begin
if (a[i] mod 2)=0 then
b:=true;
end;
if b then
Writeln('В этом числе есть четные цифры')
else
Writeln('В этом числе нет четных цифр');
end.