You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
AwesomePascal/BadassPascal/input2.pas

27 lines
320 B

const a=10;
var b,c;
procedure p;
var d;
begin
d:=20;
write(d);
c:=d/a;
write(c);
c:=c+b;
write(c);
if a<c then c:=c*2;
write(c);
end;
begin
read (b);
while b#0 do
begin
call p;
write(c);
read(b);
b := 4*b/2/3+(3*1);
write(b);
end;
b:=1;
write(b);
end.