Câu 1 :

* Xác định bài toán :

- Input : 4 số nguyên dương khác nhau a, b, c, d

- Output : tích của 4 số nguyên dương khác nhau a, b, c, d

Câu 2 :

uses crt;

var x, y : integer;

begin

clrscr;

write('nhap so x va y : ');readln(x, y);

if x > y then writeln('x lon hon y');

if x < y then writeln('x be hon y');

if x = y then writeln('x bang y');

readln

end.

1. 

INPUT: a, b, c, d

OUTPUT: Tích của a, b, c, d (a*b*c*d)

2.

program ct;
uses crt;
var x,y: integer;
    a: string;
begin
    clrscr;
    writeln('Nhap x, y:'); readln(x,y);
    writeln('x = ',x,' | ','y = ',y);
    if x > y then
        a:='X lon hon Y'
    else
        a:='X nho hon Y';
    if x = y then a:='X bang Y';
    writeln(a);
    readln;
end.

____________________________

#Duahauvn