Паскаль (I семестр) / template

program test;
(*
(c) 2005 Dima Zolotukhin aka 'Zlogic' <zlogic@gmail.com>
Redistributable under GNU GPL license
*)

const
MAX_PATH = 79;
type
str_path = string[MAX_PATH];
str_message = string[70];

function get_string(m:str_message;def_str:str_path):str_path;
var
temp_str:str_path;
begin
write(m,'> ');
readln(temp_str);
if(length(temp_str)=0)then
temp_str:=def_str;
get_string:=temp_str;
end;

begin
end.