составить блок-схему к задаче:найти периметр четырёхугольника

Var   p,a,b,c,d:integer;Begin    Writeln('Введите A, B, C, D!');    Readln(a,b,c,d);    P:=a+b+c+d;    Writeln('Периметр = ', p);End.