Дан фрагмент кода программы s=0 for j in меня зовут кожа if j ==0 s=s+1 Определи результат переменной

первое

заголовок: уходид из дома

4.порощаться

6.выключить свет,газ,

второе

заголовок: приход в квартиру

3.поверни ключ

4.вынь ключ из скважины 

a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));

c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));

writeln("периметр = ",a+b+c);

s = {формула герона}

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.