Составьте программу в паскале. Поиск максимального 3-х чисел. Учесть случай, когда а=в=с (вывести сообщение "числа равны"). Блок-схема обязательна.

var  a:array [1..3] of real;  max: real;  i,check:integer;begin  writeln('Поиск максимального 3-х чисел');  writeln('Введите значения 3-х чисел');  for i:= 1 to 3 do    readln(a[i]);  max:=a[1];  check:=1;  for i:=2 to 3 do  begin    if a[i]>max then      max:=a[i]    else if a[i]=max then      check:=check+1;   end;if check=3 then  writeln('Все числа равны')else     writeln('Max=',max)end.