1) A='Q' -<em>cимвольный.</em>
2) B=5 - <em>целый.</em>
3) С= 45. - <em>вещественный.</em><em />
4) D = True - <em>логический.</em>
Var
a:real;
Begin
Write('Сторона равностороннего треугольника: ');ReadLn(a);
WriteLn('P = ',a*3);
WriteLn('S = ',a*a);
End.
program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then
write ('весна');
if (x>=6) and (x<8) then
write ('лето');
if (x>=9) and (x<=11) then
write ('осень');
if (x=12) or (x<=2) then
write ('зима');
end.
Program test;
var a,b,c:integer;
begin
readIn(a);
readIn(b);
ReadIn(c);
writeIn(a+b/c+c/a*b);
end.
вроде так