Вывести на экран в одну строку через запятую 4 переменных abcd где a равно 30, б равно 14,9, с равно 33.33, d равно 1944. паскаль

Var a,d:integer;
b,c:real;
begin
a:=30;
b:=14.9;
c:=33.33;
d:=1944;
writeln(a,',',b,',',c,',',d)
end.