помогите пожалуйста написать на паскале

CLS
INPUT "Введите количество тестов : ", NTest
FOR Test = 1 TO NTest ' цикл по всем тестам задачи
PRINT "Тест"; Test;
INPUT ". Введите a1, b1, c1 : ", a1, b1, c1
INPUT " Введите a2, b2, c2 : ", a2, b2, c2
PRINT : PRINT "О т в е т : ";
IF (a1 = 0) AND (b1 = 0) OR (a2 = 0) AND (b2 = 0) THEN
PRINT "это не прямая (прямые)."
ELSE
IF (a1*b2=a2*b1) AND (a1*c2=a2*c1) THEN
PRINT "прямые совпадают."
ELSE
IF a1*b2 = a2*b1 THEN
PRINT "прямые параллельны."
ELSE x=(c1*b2 - c2*b1) / (b1*a2 - b2*a1)
y=(c2*a1 - c1*a2) / (b1*a2 - b2*a1)
PRINT "координаты точки пересечения: x="; x ; ", y="; y
END IF
END IF
END IF
PRINT
NEXT Test
END

Люди добрые, помогут)

все языки собрался выучить?

Нафига оно тебе?

CLS
INPUT "количество тестов : ", NTest
FOR Test = 1 TO NTest ' цикл по всем тестам задачи
PRINT "Тест"; Test;
INPUT ". Введите a1, b1, c1 : ", a1, b1, c1
INPUT " Введите a2, b2, c2 : ", a2, b2, c2
PRINT : PRINT "О т в е т : ";
IF (a1 = 0) AND (b1 = 0) OR (a2 = 0) AND (b2 = 0) THEN
PRINT "это не прямая (прямые)."
ELSE
IF (a1*b2=a2*b1) AND (a1*c2=a2*c1) THEN
PRINT "прямые совпадают."
ELSE
IF a1*b2 = a2*b1 THEN
PRINT "прямые параллельны."
ELSE x=(c1*b2 - c2*b1) / (b1*a2 - b2*a1)
y=(c2*a1 - c1*a2) / (b1*a2 - b2*a1)
PRINT "координаты точки пересечения: x="; x ; ", y="; y
END IF
END IF
END IF
PRINT
NEXT Test
END

паскаль - это язык програмирования

Помогите пожалуйста написать программу для олимпиады по PascalABC. 8 класс

Малыш, Карлсон и Фрекен Бок вместе за месяц съедают от 65 до 80 пачек печенья. Если Карлсона не будет Малыш сам должен съесть в 6 раз меньше а Фрекен Бок на 4 пачки больше чем Малыш
Нужна программа которая за выбором :
кол-во печенья если едят трое;
кол-во печенья если ест один Малыш;
кол-во печенья если ест одна Фрекен Бок;
кол-во печенья если едят Малыш и Фрекен Бок.
Будет находить какое кол-во печенья нужно будет купить (M-целое положительное число) что б запастись на N месяцев. Результат вывести на экран. Кол-во месяцев меньше за 1000.

что такое паскал?