Решите построив табличную модель. трое подростков саша, миша и андрей живут на одной улице. одного все знают , как отличного шахматиста, другой- заядлый футболист, а третий компанейский парень, любитель тусовок. однажды футболист пришел к своему другу, чтобы научится играть в шахматы, но мама сказала, что сына дома нет, он ушел с известной всей улице личностью на дискотеку. известно что андрей не знает мишу. кто есть кто?

{1} var n: integer; begin write ('введите заработанную сумму: '); readln (n); write ('вы получите: ', (n*0.77)*0.61) end. {2} var a: array of double; n, i: byte; sum: longint; begin write ('введите кол-во дробных чисел: '); readln (n); setlength (a, n);     for i: =0 to n-1 do     begin     write ('введите ', i+1, ' число: ');     readln (a[i]);     end;   for i: =0 to n-1 do   begin   writeln ('целая часть ', i+1, ' числа: ', trunc(a[i]));   inc (sum, trunc(a[i]));   end; write ('сумма целых частей: ', sum); end. {3} var a, b, c, p: double; begin write ('введите стороны треугольника: '); readln (a, b, c);   if (a> =(b+c)) or (b> =(a+c))  or (c> =(b+a))  or (a< =0) or (b< =0) or (c< =0) then   write ('такой треугольник не существует')   else begin     p: =(a+b+c)/2;     write ('его s = ', sqrt (p*(p-a)*(p-b)*(p-c)): 7: 2, ' ед^2' );   end; end.