Периметр прямоугольника с длинами сторон k и b равен (k+b)

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.

350*2=700

700-500=200

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.

№1игры 

носок

лазурь

№2

x< 5< 6=6< 7