Дано: writeln (s:6:2);
Если s=112,93215,
то на экране появится

телевидение

радиовещание

интернет

газеты и т.д 

месяцы,каждый месяц в каждом времени года-это и есть классификация

var age,exper,max_age,work_age: integer;

begin

  max_age: =42;

  work_age: =20;

  read(age,exper);

  if (age< = max_age) and (exper> =20) then writeln('da')

  else writeln ('net')

end.

var a,b,c,a1,b1,c1: real;

begin

readln(a,b,c);

b1: =a;

c1: =b;

a1: =c;

writeln(a1,b1,c1);

end.