Паскаль!!!

[Анастасия12]

Помогите пожалуйста решить две задачи из паскаль 10 класс.Завтра уже здавать задачи на проверку надо....

1 задача:
Ввести три числа и найти наибольшее из них.
Пример
Введите три числа
4 15 9
наибольшее число 15

2 задача:
Ввести возраст человека(от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года или лет".

[Диман56]

сейчас напишу))

[Pein95]

...мда наглостю прям прет(

[JUDAS]

program id167451;
var
 p1, p2, p3 : integer;
begin
  write('введите три числа через пробел ');read(p1,p2,p3);
  if (p1>p2)  and (p1>p3) then 
  writeln('большее ',p1) else
  if (p2>p1)  and (p2>p3) then 
  writeln('большее ',p2) else
  writeln('большее ',p3);
end;

программу по годам летам и году писал гдето на этом форуме, поищите код поиском

[Диман56]

1 программа:
Program pr1;
var a,b,c:integer;
BEGIN
writeln('Введите три числа:');
readln(a,b,c);
IF (a>b) and (b>c)
THEN
writeln('Наибольшее число:',a)
ELSE
IF (a<b) and (b>c)
THEN
writeln('Наибольшее число:',b)
ELSE
IF (b>a) and (b<c)
THEN
writeln('Наибольшее число:',c)
ELSE
IF(A>B) and (b<c)
THEN
writeln('Наибольшее число:',c)
ELSE;
END.

[Диман56]

эх, опередили меня))

[Анастасия12]

JUDAS а ты прислал это какая прорамма про года или про наибольшее?

[Alex11223]

IF (a>b) and (b>c)
IF (a<b) and (b>c)
IF(A>B) and (b<c)

По-моему проще "думать" так, как в решении от Judas (if (a>b) and (a>c) then a наибольшее), чем так запутанно. Скорее всего вы сами где-то запутались.

а ты прислал это какая прорамма про года или про наибольшее?

А запустить не пробовали?оО Вроде бы в ней упоминаются только числа, а не года.

[Анастасия12]

Я ничего не понела, можите написать ещё раз решение 1 задачи( про наибольшее)
пожалуйста...

[Диман56]

Да не запутался я) прога работает ведь правильно)))) Я на листке перебрал все варианты сравнения 3 чисел)