uses crt;
var a,b,c,min:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('So nho nhat la ',min);
readln;
end.
Copyright © 2024 VQUIX.COM - All rights reserved.
Answers & Comments
Verified answer
uses crt;
var a,b,c,min:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('So nho nhat la ',min);
readln;
end.