Pascal.Задача: Написать программу, которая просит моё имя адрес дома. P.S: Можете придумать имя и адрес.

Предыдущий
вопрос Следующий
вопрос

const name='Anton';

adress='Lenina, 10';

var rname,radress : string;

begin

write('Enter Your name: '); readln(rname);

  write('Enter Your adress: '); readln(radress);

 if rname<>name then

 begin

  writeln('Its not Your name !');

  readln;

  halt;

 end;

 if radress<>adress then

 begin

  writeln('Its not Your adress !');

  readln;

  halt;

 end;

 writeln('Its Your name and adress !');

 readln;

end.