Нужно составить линейную блок-схему задания "Вычислить периметр квадрата, если задана, его площадь". Помогите, пожалуйста!

program zadacha;var a,p,s:integer;beginwriteln('Введите сторону квадрата: ');readln(a);s:=a*a;p:=a+a+a+a;writeln('Площадь квадрата = ',s,' , периметр квадрата = ',p,'.');end.