Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Даны три числа определить максимальное из них и построить блок схему

Ответ оставил Гость

var
a,b,c:integer;
begin
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then
writeln(naibolshee a=, a)
else if (b>a) and (b>c) then
writeln(naibolshee b=, b)
else if (c>a) and (c>b) then
writeln(naibolshee c=, c)
else
writeln(naibolshego net);

end.