Написать программу на Паскале, которая вводит значения переменных a,b,c с клавиатуры и выясняет, все ли они отрицательны

Здраствуйте, это довольно простая программа:var a, b, c : integer;begin write(\'введите три числа \'); readln(a, b, c); if a<0 and b<0 and c<0 then writeln(\'Все числа отрицательны\');elsewriteln(a\',\'b\',\'c);end.