-
Notifications
You must be signed in to change notification settings - Fork 15
Expand file tree
/
Copy pathProgram14.pas
More file actions
16 lines (16 loc) · 331 Bytes
/
Program14.pas
File metadata and controls
16 lines (16 loc) · 331 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program test(input,output);
(* Two compiler errors *)
var invalue:real;
procedure get real(min,max:real;var val);
begin -
end;
begin
end.
repeat
writeln('Enter a value>> ');
readln(val);
if ((val<O) or (val>max)) then
writeln('INVALID');
until ((val>min) and (val<max));
get real(O,lOO,invalue);
writeln('Input value is 'invalue);