Рассмотрите блок схему и напишите программный код на языке программирования Pascal ​

var sum, m, k:integer;

begin

 sum := 0;

 m := 10;

 for k := 0 to 5 do begin

   sum := k+m;

   m := m-2;

 end;

 Writeln(sum);

end.

Объяснение:

Program samsdelal var

T,s,n:integer;

Begin

Realdn(t)

S:=t&9

If s>8 then

N:=80-s

Else n:=0

Writeln(n)

End.