Var day: byte; boy: string; pi: real; begin // в блок памяти boy запишите ваше имя // в переменную day запишите ваш возраст // выведите на экран содержимое переменной boy // выведите на середину экрана текст "меня зовут", а рядом - содержимое переменной boy // выведите на экран сначала текст "мне", затем - содержимое переменной day, // затем через один пробел - слово "лет"} // переменной pi присвойте значение 3.141592 // выведите на экран содержимое переменной pi в "плавающем" виде // выведите на экран содержимое переменной pi с двумя знаками после десятичной точки end.
boy:string;
pi:real;
begin
boy:='Челубей';
day:=174;
WriteLn(boy);
WriteLn(' Меня зовут'+boy);
WriteLn('Мне ', day,' лет' );
pi:=3.141592;
WriteLn(pi);
WriteLn(pi:0:2);
end.