Giúp mình hết nha mình cho 5 sao❤️ 1.Viết chương trình nhập số nguyên từ bàn phím, kiểm tra xem số đó là chẵn hay lẻ. 2.Viết chương trình kiểm tra 3 cạnh a, b, c có phải là 3 cạnh của tam giác đều hay không? (a, b, c là 3 số dương nhập từ bàn phím)

CÂU 1:

Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap vao so a ='); readln(a);

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

else

write('a la so le ');

readln;

end.

 CÂU 2:

Program cau2;

Uses crt;

Var a,b,c:integer;

Begin

CLRSCR;

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('c='); Readln(c);