write('please give me first real ');
read(a);
write('please give me the second real ');
read(b);
write('please give me the third real ');
read(c);

write('please give me the first integer ');
read(d);
write('please give me the second integer ');
read(e);
write('please give me the third integer ');
read(f);

write ('please give me the first string ');
readln;
read(g);
write ('please give me the second string ');
readln;
read(h);
write( ' please give me the third string ');
readln;
read(i);

writeln;

write('first integer with no field width ');
writeln;
write (d);
writeln;
write('second integer with field width of five ');
writeln;
write(e:5);
writeln;
write('third integer with field width of ten ');
writeln;
write(f:10);
writeln;

write('first real number with no field width ');
writeln;
write(a);
writeln;
write('second real number with negative 5 decimal and 10 field width');
writeln;
write(b:10:-5);
writeln;
write('third real number with plus 5 decimal and 10 field width ');
writeln;
write(c:10:5);
writeln;

write ('first string with no field width ');
writeln;
write(g);
writeln;
write('second string truncated to field width of 5 followed by the word test');
writeln;
write(copy(h,1,5),'test');
writeln;
write('third string with field with of 10');
writeln;
write(i:10);
writeln;

end.

end.