Напишите программный код следующей блок схемы

Question

Напишите программный код следующей блок схемы

---

Answer 1

var t,s,n:integer;
begin
readln(t);
s:=t*9;
if s>8 then n:=0 else n:=80-s;
writeln('n = ',n);
end.

Пример:
15
n = 0

Answer 2

Паскаль? Если да, то:

program samsdelal;
var
t, s, n: integer;
begin
  readln(t);
  s:=t*9;
  if s>8 then 
    n:=80-s
    else n:=0;
  writeln(n);
end.