Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program card;
- var
- name : string;
- function drawStars(n : integer): string;
- var
- stars : string;
- i : integer;
- begin
- for i:=1 to n+2 do
- begin
- write('*');
- end;
- end;
- function drawCard(name : string) : string;
- begin
- drawStars(length(name));
- writeln;
- writeln('*' , name , '*');
- drawStars(length(name));
- end;
- begin
- writeln('Podaj imi©:');
- readln(name);
- drawCard(name);
- readln;
- end.
Add Comment
Please, Sign In to add comment