Решить по программированию, используя, а) оператор ветвления б) оператор цикла написать программу нахождения наибольшего из пяти чисел, вводимых с клавиатуры. pascal

Разветвляющийся алгоритм var a,b,c,d,e: integer; begin writeln('введите значения переменных'); readln(a,b,c,d,e); if (a> b) and (a> c) and (a> d) and (a> e) tnen writeln('наибольшее из 5 чисел ', a) else if (b> a) and (b> c) and (b> d) and (b> e) tnen writeln('наибольшее из 5 чисел ', b) else if (c> a) and (c> b) and (c> d) and (c> e) tnen writeln('наибольшее из 5 чисел ', c) else if (d> a) and (d> b) and (d> c) and (d> e) tnen writeln('наибольшее из 5 чисел ', d) else writeln('наибольшее из 5 чисел ', e); end. циклический алгоритм type vector=array [1..10] of integer; var m: integer; a: vector; i: byte; begin writeln('введите значения переменных'); for i: =1 to 5 do           readln (a[i]); for i: =1 to 5 do if  a[i]> a[i+1] then m: =a[i]; writeln('наибольшее число ', m); end.

На почте. странны вопрос. email если