fork download
  1. program square;
  2.  
  3. var a,P:integer;
  4. begin
  5. read(a);
  6. p := 4*a;
  7. write('Периметр квадрата: ', P);
  8. end.
Success #stdin #stdout 0.01s 5292KB
stdin
5
stdout
Периметр квадрата: 20