Флаг Австрии принят в 1919 году. Отменён в 1938 году. Вновь восстановлен как государственный в 1945 году. Национальный флаг Австрии традиционно представляет собой прямоугольное полотнище с соотношением сторон 2:3 (хотя законодательно не утверждено точное соотношение сторон и поэтому могут использоваться флаги разной длины и ширины[2] ), состоящее из трёх равновеликих горизонтальных полос — верхней красной, средней белой и нижней красной. Наряду с флагом Дании считается одним из старейших флагов Европы.
Флаг Австрии
Австрия
Flag of Austria.svg
Утверждён
21 октября 1919
Отменён
13 марта 1938
Повторно
учреждён
1 мая 1945[1]
Блок схему не нарисую,но решение скажу.
uses crt;
var a,b,c,p:integer;
begin
writeln('Введите a,b,c'); readln(a,b,c);
if (a>b) and (a>c) then
begin
writeln('a большее');
p:=a; writeln('Т.к a большее,то в p записываем ',a);
end;
if (b>a) and (b>c) then
begin
writeln('b большее');
p:=b; writeln('Т.к b большее,то в p записываем ', b);
end;
if (c>a) and (c>b) then
begin
writeln('c большее');
p:=c; writeln('Т.к c большее,то в p записываем ',c);
end;
end.
P.s это полное решение задачи,если тебе конечно нужна была на паскале.
Если нужен алгоритм выдели его сама.
