Advertisement
X-88

isengbantuorang.pas

Nov 6th, 2021
1,719
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program checkmail;
  2.  
  3. uses
  4.     crt;
  5.    
  6. const
  7.     TS = '@gmail.com';
  8.        
  9. var
  10.     F, S, C, N: string;
  11.     key: char;
  12. begin
  13.     ClrScr();
  14.     textColor($00ff00);
  15.     Write('Enter your First name: ');
  16.     Read(F);
  17.     Write('Enter your Second name: ');
  18.     Read(S);
  19.     C := F + S + TS;
  20.     WriteLn('your e-mail address is : ',C);
  21.     WriteLn('Do you like and want to keep your e-mail address?');
  22.     Write('Enter y/Y for yes and n/N for no: ');
  23.     read(key);
  24. If ((key = 'n') or (key = 'N')) then
  25. begin
  26.     Write('Enter your e-mail e.g "example@g-mal.com": ');
  27.     Read(N);
  28.     WriteLn('Your e-mail is:', N + TS);
  29. end
  30. else
  31.     WriteLn('Your e-mail is:', C);
  32.     readln
  33. end.
Advertisement
RAW Paste Data Copied
Advertisement