Guest User

Untitled

a guest
Jun 13th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.46 KB | None | 0 0
  1. program card;
  2. var
  3.     name : string;
  4.  
  5. function drawStars(n : integer): string;
  6. var
  7.     stars : string;
  8.     i : integer;
  9. begin
  10.     for i:=1 to n+2 do
  11.     begin
  12.         write('*');
  13.     end;
  14. end;
  15.  
  16. function drawCard(name : string) : string;
  17. begin
  18.     drawStars(length(name));
  19.     writeln;
  20.     writeln('*' , name , '*');
  21.     drawStars(length(name));
  22. end;
  23.  
  24. begin
  25.     writeln('Podaj imi©:');
  26.     readln(name);
  27.     drawCard(name);
  28.     readln;
  29. end.
Add Comment
Please, Sign In to add comment