Информатика. Написать БЛОК-СХЕМУ и программу (паскаль)
Даю 50б

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

хвалебный                                                                     

954-459=495                                      

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.