Вывести на экран сообщение «введите ваше имя и класс через пробел», после ввода данных, вывести сообщение «), поздравляем с написанием первой программы на языке паскаль».

Var name,s:string;

Begin

Writeln('Введите Ваше имя и класс через пробел');

Read(s);

Ffor i:=1 to length(s) do

Begin

If s[i]= ' ' then break;

Name:=name+s[i];

End;

Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');

End.