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

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.