Составить программу для получение текстов. а: ='9класс' b: ='ученик' 'в 9 классе 8 учеников'.

Var a,b:string;
begin 
    a:='9 класс';
    b:='ученик';
    writeln('В ', a, 'е 8 ', b, 'ов');
end.