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

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