Câu 6 trang 51 SGK Tin học 11

PROGRAM Tim_ga_cho;
USES crt;
VAR ga, cho: integer;
BEGIN
    clrscr;
    FOR cho:= 1 to 24 DO
        BEGIN
            ga:= 3 6 - cho,
            IF ga + 2*cho = 50 THEN writeln('Ga:',ga,' Cho:',cho);
        END;
    readln;
END