Ответы и объяснения

2014-02-18T17:04:04+04:00
6)
var  x:real;
begin
writeln('Введите х');
readln(x);
if x>0 then
writeln('Положительное число')
else
writeln('Отрицательное число');
end.
7)
var  M,S:real;
begin
writeln('Введите возраст Маши');
readln(M);
writeln('Введите возраст Саши');
readln(S);
if S>M then
writeln('Саша старше Маши')
else
writeln('Маша старше Саши');
end.