fork download
copy 
  1.  var a,b,c,d:string;
  2. begin
  3. writeln('Введите фамилию: ');
  4. readln(a);
  5. writeln('Введите имя: ');
  6. readln(b);
  7. writeln('Введите отчество: ');
  8. readln(c);
  9. writeln('Введите номер группы: ');
  10. readln(d);
  11. writeln('============');
  12. writeln('Пилипенко Глеб Олегович 524');
  13. end.
Success #stdin #stdout 0.01s 5260KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите фамилию: 
Введите имя: 
Введите отчество: 
Введите номер группы: 
============
Пилипенко Глеб Олегович 524
https://ideone.com/54gOIf
language:
Pascal (fpc 3.0.4)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!