31_1. Опредеят, положительное число или отрицательное.
31_2.
program Z32_2;
var m,s:integer;
begin
write('Введите возраст Маши:');
readln(m);
write('Введите возраст Саши:');
readln(s);
if m=s then
writeln('Ровесники')
else
if m>s then
writeln('Маша старше Саши')
else
writeln('Cаша старше Маши')
end.
на 32 позже напишу, сейчас некогда.