1. опишите информационную среду для перечисленных объектов и укажите для нее возможные информационные угрозы: а) школа; б) библиотека; в) ваша семья; г) супермаркет; д) кинотеатр; е) любая другая среда на ваш выбор.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.