составьте разветвляющие алгоритмы пословиц
1. Без друга в жизни туго
2. Любишь кататься люби и саночки возить
3. Готовь сани летом, а телегу зимой​

Программа на языке Паскаль:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

var

X : array [1..5] of integer; {массив из 5 элементов}

i : integer; {Счётчик цикла}

d : integer; {Произведение положительных}

L : integer; {Количество отрицательных и нулей}

begin

{Ввести таб Х[1:5]}

write('Введите 5 чисел в массив Х: ');

for i := 1 to 5 do read(X[i]);

d := 1;

L := 0;

for i := 1 to 5 do

if (x[i] > 0) then

d := d * x[i]

else

L := L + 1;

{Вывести d, L}

writeln('Произведение d = ', d);

writeln('Количество отрицательных - ', L)

end.

По моему так:
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.