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

var t,s,n:integer;beginreadln(t);s:=t*9;if s>8 then n:=0 else n:=80-s;writeln('n = ',n);end.Пример:15n = 0

Паскаль? Если да, то:program samsdelal;vart, s, n: integer;begin  readln(t);  s:=t*9;  if s>8 then     n:=80-s    else n:=0;  writeln(n);end.