var a,b,c:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if a>b then
begin
if a>c then
writeln('a=',a)
else
writeln('c=',c);
end;
else
begin
if b>c then
writeln('b=',b)
else
writeln('c=',c);
end;
readln;
end.
2
Contributors
1
Reply
29 Minutes
Discussion Span
5 Months Ago
Last Updated
3
Views
Related Article:Sudoku solver
is a Pascal and Delphi discussion thread by Swith that has 9 replies, was last updated 7 months ago and has been tagged with the keywords: pascal, sudoku, solver.