Repede va rog, dau coroană
Citeste a1,a2,a3
Daca a1 > a2 atunci
lui max atribuiei a1
altfel
lui max atroibuiei a2
Daca a3 > max atunci
lui max atrubuiei a3
altfel
afiseaza rezultatul max
Sfarsit
Răspunsuri la întrebare
Inceput
↓
Citeste A,B,C
↓
↓----Da------ A>B ---Nu--- ↓
↓ ↓
Max:=A ------------------------ Max:=B
↓
↓
↓ -----Da--- Max>C ----Nu----- ↓
↓ ↓
------------------------------------ Max:=C
↓
Afiseaza Max
↓
Sfarsit
a1, a2, a3, max: integer;
begin
write('Trei numere: ');
readln(a1, a2, a3);
if a1 >= a2 then
max := a1
else
max := a2;
if a3 > max then
max := a3;
writeln('Maximum din ele: ', max);
end.