Program lab1;
Uses crt;
Var
rPerem1,rPerem2:real;
iPerem3:longint;
iPerem4,iPerem5:Shortint;
cPerem6,cPerem7,cPerem8,cPerem9,cPerem10:char;
Const
bPerem11:boolean=false;
Begin
clrscr;
writeln('Введите значения переменных вещественного типа');
readln(rPerem1,rPerem2);
writeln('Введите значения переменных целого типа');
readln(iPerem3,iPerem4,iPerem5);
writeln('Введите значения переменных символьного типа'');
readln(cPerem6,cPerem7,cPerem8,cPerem9,cPerem10);
writeln;
writeln('Бесформатный вывод данных');
writeln(' вещественного типа: rPerem1 = ',rPerem1,', rPerem2 = ',rPerem2);
writeln(' целого типа: iPerem3 = ',iPerem3,', iPerem4 = ',iPerem4,', iPerem5 = ',iPerem5);
writeln(' символьного типа: cPerem6 = ',cPerem6,', cPerem7 = ',cPerem7,', cPerem8 = ',
cPerem8,', cPerem9 = ',cPerem9,', cPerem10 = ',cPerem10);
writeln(' логического типа: bPerem11 = ',bPerem11);
writeln;
writeln('Вывод по формату 5 данных');
writeln(' вещественного типа: rPerem1 = ',rPerem1:5,', rPerem2 = ',rPerem2:5);
writeln(' целого типа: iPerem3 = ',iPerem3:5,', iPerem4 = ',iPerem4:5,', iPerem5 = ',iPerem5:5);
writeln(' символьного типа: cPerem6 = ',cPerem6:5,', cPerem7 = ',cPerem7:5,', cPerem8 = ',
cPerem8:5,', cPerem9 = ',cPerem9:5,', cPerem10 = ',cPerem10:5);
writeln(' логического типа: iPerem11 = ',bPerem11:5);
writeln;
writeln('Вывод по формату 4:2 данных');
writeln(' вещественного типа: rPerem1 =',rPerem1:4:2,', rPerem2 =',rPerem2:4:2);
readkey;
end.