Задача 3.1. Скласти дiалогову програму для введення свого прізвища, імені, по батькові, року народження та виводу їх на екран в рядок та стовпчик.

Program PR1;
Var Prizv, Imya, PoBat:String[20]; Rik:Integer;
Begin {Введення даних}
Write('Введи своє прізвище '); ReadLn(Prizv);
Write('Введи своє ім"я '); ReadLn(Imya);
Write('Введи по батькові '); ReadLn(PoBat);
Write('Введи рік народження '); ReadLn(Rik);
{Виведення результатів в стовпчик}
WriteLn(Prizv); WriteLn(Imya); WriteLn(PoBat); WriteLn(Rik);
{Виведення результатів в рядок}
Write(Prizv,' '); Write(Imya,' '); Write(PoBat,' '); Write(Rik); End.

Результати роботи програми:
Введи свої прізвище Iваненко
Введи свої ім"я Iван
Введи по батькові Iванович
Введи рік народження 1982
Iваненко Iван Iванович 1982
Iваненко
Iван
Iванович
1982

Завдання 3.1. Скласти програму для введення даних про підручник з математики (назва, автор, видавництво, рік виданн). Вивесиведення результатів в рядок та стовпчик.