Giải giúp em môn tin Đề 1 : " Viết Phương trình từ bàn phím số nguyên dương k có 2 chữ số, kiểm tra số hàng chục bà hàng đơn vị số nào lớn hơn Đề 2 : " Viết P.trình nhạo từ bàn phím 3 số nguyên dương bất kì kiểm tra 3 số vừa nhập có phải là 3 cạnh tam giác vuông hay không

Đề 1:

program Min;
uses crt;
var k,a,b:integer;
begin
   clrscr;
   writeln('Nhap k: '); readln(k);
   a:=k div 10;
   b:=k mod 10;
   if a>b then writeln('Chu so hang chuc lon hon') 
   else writeln('Chu so hang don vi lon hon');
   readln
end.

Đề 2:

program Min;
uses crt;
var a,b,c:integer;
begin
   clrscr;
   writeln('Nhap a, b, c: '); readln(a,b,c);
   a:=sqr(a); b:=sqr(b); c:=sqr(c);
   if (a+b=c) or (a+c=b) or (b+c=a) 
   then writeln('Day la 3 canh cua tam giac vuong')
   else writeln('Day khong la 3 canh cua tam giac vuong');
   readln
end.

Bạn tham khảo nha :D