Bài 6. Câu lệnh điều kiện

a. X=14
b. ủa đề lag z :) cho X vs Y rồi bảo tổng A, B
Var Z:=A+B;
c. X=35
d. c=9
e. 20+5= 25

uses crt;

var a,b,c,max:integer;

begin

clrscr;

write('nhap ba so:');readln(a,b,c);

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,'la so le);

if b mod 2=0 then writeln(b,'la so chan')

else writeln(b,'la so le');

if c mod 2=0 then writeln(c,'la so chan')

else writeln(c,'la so le');

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('so lon nhat trong ba so la:',max);

readln

end.

Help

Program HOC24;

var a: array[1..50] of real;

i,n: integer;

max: real;

begin

write("Nhap so ban trong lop: "); readln(n);

for i:=1 to n do

begin

write("Nhap chieu cao cua ban thu ",i,": "); readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if max<a[i] then max:=a[i];

write("Ban co nhat la ban thu: ");

for i:=1 to n do if a[i]=max then write(i,"");

readln

end.

helpp

trả lời giúp mik đi ạ

uses crt;

var x,y:integer;

begin

clrscr;

readln(x,y);

if (x<y) then write('x nho hon y')

else if (x>y) then write('x lon hon y')

else write('hai so bang nhau');

readln;

end.