T8Sr82hR

1program checkmail;
2
3uses
4    crt;
5    
6const
7    TS = '@gmail.com';
8        
9var
10    F, S, C, N: string;
11    key: char;
12begin
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);
24If ((key = 'n') or (key = 'N')) then
25begin 
26    Write('Enter your e-mail e.g "example@g-mal.com": ');
27    Read(N);
28    WriteLn('Your e-mail is:', N + TS);
29end
30else
31    WriteLn('Your e-mail is:', C);
32    readln
33end.