P=1
for x in range (-2, 2) :

p=p+x

print (p)

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

б,в,г,е - лцд остальное к трубке