isengbantuorang.pas

program checkmail;

uses
    crt;

const
    TS = '@gmail.com';

var
    F, S, C, N: string;
    key: char;
begin
    ClrScr();
    textColor($00ff00);
    Write('Enter your First name: ');
    Read(F);
    Write('Enter your Second name: ');
    Read(S);
    C := F + S + TS;
    WriteLn('your e-mail address is : ',C);
    WriteLn('Do you like and want to keep your e-mail address?');
    Write('Enter y/Y for yes and n/N for no: ');
    read(key);
If ((key = 'n') or (key = 'N')) then
begin
    Write('Enter your e-mail e.g "example@g-mal.com": ');
    Read(N);
    WriteLn('Your e-mail is:', N + TS);
end
else
    WriteLn('Your e-mail is:', C);
    readln
end.